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Call This Mina None 15677-647-1099 


Let Telecommuter software turn your IBM-PC into an integrated word processing and communications 
System as powerful as any combination of software products you can find. 


Our software is as easy to learn and use as your portable computer. If you can use a Model 100 or Tandy 
200, you already know how to use Telecommuter on your personal computer. It's that simple! 


Telecommuter runs on the IBM-PC/XT/AT /jr and compatible MS-DOS computers, such as Compaq, 
AT&T 6300 and Tandy 1000/1200/2000/3000. 


Start a job on your portable, then use pe 
Telecommuter to move the files to your desktop zl IZ GI ^" la IT 
and finish the work with big computer word I ELI: vi I U i ER 
Processing and communications power — FAST! ——— 


I Software that always works 
Call today to order your COPY: Support that’s always there 


Only $200. MasterCard and Visa accepted. 


- en SIMPLE ` SIGEA SYSTEMS, INC. 


19 Pelham Road, Weston, MA 02193 (617) 647-1099 











Unfortunately, a lot of Word 
Processing Software is not what 
it seems. It is not easy. But it is 
expensive. 


Leading Edge wants to change 
the way you think about Word 
Processing. 

By making it easy yet inexpensive. 
Quite simply, we've taken ad- 
vantage of all the features of 
personal computers like the 
IBM® Tandy® and Leading 
Edge? PCs and made them 
appealingly simple to use. 


Even if you're a two-finger typ- 
ist. Even if you've never used 
word processing before in your 
life. 


Easy. Simple. A snap. Duck 
Soup. There are no codes to 
memorize. No complex func- 
tions. And the system guides you 
all along the way, in plain and 
simple English. 

What's the catch? 


There is none. Leading Edge | 


Software Products go from Basic 
to Brilliant. And then, Beyond. 
With the kind of support that 
everybody else promises, yet 
rarely delivers. 


To find out more, just call 800 
523-HELP and ask for our free 
brochure. It's easy to get. Easy 
to read. The only hard thing is 
understanding how Leading 
Edge Products can do so much 
for you, so fast, for so little. 


LEADING EDGE 
Word Processing 


IBM is a registered trademark of International Business Machines. 
Leading Edge is a trademark of Leading Edge Products, Inc. 


ing Edge Software Products, Inc. 
21 Highland Circle, Needham Heights, MA 02194 
1-800-523-HELP , (617) 449-4655 
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Tandy computers 
offer everything 





Check out the software that completes their systems 


Tandy MS-DOS Software Comparison Chart 
| | File/Report | "i | Smaliware | 
NE 


GENERAL 
CHARACTERISTICS: ara a 
ves 


Menu driven 
programmer bs 
required ! 


Allows user to create integrated 
YES VI 
















business systems 

Developed systems and data can be 
moved to multi-user environments 
Professional support available 
from the software's authors 
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CAPACITIES: 

Fields per record 100 1 
Characters per record 1679 4608 4 
Records per file 1300 


Indexes per file 





Number of digits per numeric field 


Number of files usable concurrently 
Files span multiple drives 


FEATURES: 


Full-screen facility for creating 



























custom screen layouts YES 
Full-screen facility for creating 
custom report layouts YES 


$i 


Built-in field types 
(error checking) 


: 





programmer 
required 
programmer 


required 

required 
possible 

required 


User-defined field types 












Conditional math 


User-defined menus 
Change file layout without 
losing existing data 

Data protection 

Password security 


possible 





-2 230 West 41st Street, Suite 1200, New York, New York 10036 


Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase II is a trademark of Ashton-Tate. pfs File/Report 


is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 


©The Small Computer Company, Inc. ”” 


—filePro® 


The new Tandy computers 
can really speed things up. If 
you don't let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 

filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 


To order, call 

(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 


including IBM PC, IBM PC-XT, and 
NCR Decision Mate. tl 
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First Weeks, Final 
Touches 


e have developed a number of 
new friends here at PCM this 
month. They are Jeff and 


Rodney, Rick and Sam. And, of course, 
Dana. 

For the past several weeks, these 
people — and many more — have been 
living with us in the new Falsoft Build- 
ing. They are the people who are doing 
the final touches on our building and 
getting things pretty much in shape. 

Jeff, who prefers the appellation 
“Sparky,” is our "on site" electrician. 
Dana is the contractor who supervises 
this band of merry men. 

Moving from 4,800 square feet to 
18,000 on three floors has required 
some adjustment. Thanks to Jim, things 
have been easier. He installed our new 
telephone system — so when we need 
Rodney, we just use the phones to page 
a message like "desperately seeking 
Rodney" rather than go hunting for 
him. 

I guess we've been a good influence 
on everyone, too. Several of our new 
friends have bought Tandy computers 
since the job started! 

All of this is to say that we've finally 
moved into our new building. The kinks 
are certainly not out yet, by any means, 
but we are here, we're warm (once they 
fixed the heat), and everyone is settling 
in. 

Considering that, before the move, 
each staff member had an average of 96 
square feet in which to work and now 
each has 360, you can imagine there is 
a world of difference in efficiency alone. 
Each of our editors, for instance, has a 
countertop for his or her computer(s), 
printers and whatever; shelves above 
the counters for software, manuals and 
the like; and, (hurrah!) electric outlets 
and power strips galore. 


We even have enough telephone lines 
that we are able to have several people 
on modems at the same time (a big 
boost for our Delphi activities), room to 
have board sessions in our own confer- 
ence room (away from the hubbub) and 
so on. 

We'll have an *open house" after the 
first of the year and we want you to 
come! If you can't make it, try to make 
Prospect (Louisville) a stop on your 
next trip. We'd love to show you 
around. 

COMDEX was an exciting show for 
us. One of the stars of the show was the 
new Tandy 3000, and the 600, too, 
though a little less so. Both, of course, 
were featured on Decembers' cover. 
And there was a lot of talk at the show 
about Tandy, which boasted a sensa- 
tional new booth as well as super new 
machines. 

Some of the “reviews” of COMDEX 
said that it was "dull," but I think that 
those who said that were, generally, 
misinformed. The computer industry 
has matured to the point where you 
don't need dancing elephants for excite- 
ment. Rather, simply by working the 
show, you'll find (I know I did) a lot of 
exciting things happening. Things you 
can use on and with your Tandy com- 
puter. 

Let's not mistake hype and hoopla for 
progress and growth. 

Finally, Eric Maloney of 80 Micro 
informs me I was wrong last month 
about John Roach's picture appearing 
on PCM’s cover as being a “computer 
magazine first." Eric's own magazine 
beat us to that distinction, as did /nfo- 
World. 

Oh, well. 


— Lonnie Falk 
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COLOR COMPUTERS 


26-3127 64K Extended Color Computer 2. . 
26-3134 16K Standard Color Computer 2 
26-3129 Thinline DD O for Color Comp 
26-3018 Extended Basic Kit 

26-3030 OS-9 with Editor Assembler 
26-3012 Deluxe Joystick 

26-1208 CCR-81 Recorder 

VIP Integrated Library . 


VIP Writer . 
VIP Caic 


Telewriter Disk 
Botek Interface 





LGLOJ PU ERIE 


LIST 
PRICE 


$199.95 
119.95 
349.95 
39.95 
69.95 
29.95 
59.95 
149.95 
69.95 
69.95 


OUR 


$175.00 
100.00 
290.00 
36.00 
59.50 
25.00 
50.00 
139.00 
59.00 
59.00 
49.00 
59.00 


TANDY 3000 


25-4001 
25-4010 
25-3046 
26-3047 
25-4030 
25-4033 
25-4050 
25-4060 
25-4062 
25-4101 
26-5111 
26-5112 


Tandy 3000 1 Disk 512K . 
Tandy 3000 1 FD 20 Meg HD 512K 3599.00 
Deluxe Text Display Adapter 
Deluxe Graphics Display Adapter 
512K to 2Meg Expansion Board 
Math Co-Processor for 3000 

1.2 Meg Disk Drive Kit for 3000 
HD Controller Board for 3000 

20 Meg Hard Disk Kit 

MS-DOS 3.1/Basic/Deskmate . 
Monochrome Monitor 

Color Monitor 


.. $2599.00 $1900.00 
2600.00 
205.00 
395.00 
395.00 
339.00 
255.00 
425.00 
679.00 
85.00 
165.00 
510.00 


249.95 
499.95 
499.00 
399.95 
299.95 
499.00 
799.00 

99:95 
199.95 
599.95 


TANDY 100, 200, 600 


26-3901 
26-3904 
26-3910 
26-3860 
26-3866 
26-3802 
26-3808 
26-3816 
26-3909 
26-3805 
26-1409 
26-1410 


Tandy 600 Port Comp 32K 3ve DD $1599.00 $1125.00 
Basic Rom for Tandy 600 

92K RAM Upgrade for Tandy 600 
Tandy 200 Port Comp 24K 

24K RAM Mem. Exp. Chip for 200 
Tandy 100 Portable Computer 24K 
Tandy 100/200 372" Drive 

8K RAM Upgrade for Tandy 100 
Portable 31⁄2 DD for T100 T200 
Acoustic Coupler 

Printer Cable 

Modem Cable 


129.95 
399.95 
999.00 
249,95 
499.00 
199.00 
119.95 
199.95 

39.95 

14.95 

19.95 


110.00 
340.00 
725.00 
210.00 
425.00 
169.00 
95.00 
169.00 
34.00 
12.70 
17.00 


MODEL 4D 


26-1070 
26-1122 
26-1123 
26-1134 
26-1530 
26-1595 
26-1608 
26-1635 
26-2216 
26-2231 


64K Memory Expansion M 
Model 3 to Model 4 Upgrade Kit . 
Model 4 Hard Disk Kit for 15meg 
Multiplan Model 4............. 
Super Scripsit Model 4 

Deskmate for Model 4 . 

Profile 4 Model 4 

CP/M Plus Model 4 . 

Double Duty Utility 


Model 4D 64K 2 FD w Deskmate . $1299.00 $ 895.00 


69.95 
399.00 
79.95 
199.00 
199.95 
195.00 
249.95 
149.00 
69.95 


65.00 
385.00 
67.95 
169.00 
169.00 
175.00 
200.00 
127.00 
58.00 


MODEL 6000 COMPUTERS 


26-6021 
26-6022 
26-6019 
26-6052 
26-1245 
26-6018 
25-3022 
26-4155 
26-4171 
26-4173 
26-4157 


Model 6000 512K 2 FD Computer 
Model 6000 512K 1 FD 15Meg HD 5499.00 
Model 6000 256K Memory Kit .. . 
DT-100 Data Terminal 

10 Meg Disk Cartridge System . . . 
6000 Interface Kit for 26-1245 ... 
Interface Kit tor 26-1245 . 

15 Meg Hard Drive Primary 

35 Meg Hard Drive Primary . 
Meg Hard Drive Primary . . 
Installation Kit for Primary HD . 





4499.00 3125.00 
3795.00 
185.00 
600.00 
1750.00 
102.00 
160.00 
1355.00 
2545.00 
3350.00 
295.00 


199.95 
795.00 
2195.00 
119.95 
199.95 
1995.00 
2995.00 
4295.00 
349.00 


All prices and offers may be changed or withdrawn without notice. Advertised 
prices are cash prices. C.O.D. accepted ($10.00 charge per carton on C.O.D. 
Call for further C.O.D. information.) M.C., Visa, add 296. AX, add 3%. All non- 
defective items returned will be subject to 10% restocking fee. Defective items 
require return merchandise authorization. Call for R.M.A. Number before 
returning. Delivery is subject to product availability. 


1-800-248-3823 


RADIO SHACK PRINTERS 


26-1276 
26-1275 
26-1280 
26-1268 
26-1257 
26-1277 
26-1270 
26-1274 
26-1279 
26-1269 
26-1498 
26-1477 


TANDY 1200, 2000 


.$1999.95 $1525.00 


25-3000 
25-3001 
25-3010 
26-3212 
25-3043 
25-3044 
25-3061 
25-3020 
25-3021 
25-3130 
26-5103 
26-5104 


TANDY 1000 


25-1000 
25-1001 
25-1003 
25-1005 
25-1006 
25-1007 
25-1013 
25-1025 
25-1501 
25-1502 


EPSON PRINTERS 


20001015 $ 288.00 $ 215.00 
20001025 
20001035 
20001040 
20001050 
20002010 
20002030 
20003010 
20001515 
10081010 
10081020 
10081030 


CALL 





Re 








LIST 
PRICE 





DMP-105 Dot Matrix Printer . 
TRP-100 Portable Thermal Printer 
DMP-130 100 cps Tri. Mode Printer 
CGP-220 Color Ink-Jet Printer 
DWP-220 Daisy Wheel 
DMP-430 24 Wire Matrix Printer 
DWP-510 43 cps Daisy Wheel 
DMP-2100P 24 Dot Wire Matrix 
DMP-2200 HiSpeed Matrix Printer 
PT-64 Printer Controller 

SW-302 Printer Switch på 
Auto Sheet Feeder for DWP 510 


299.00 
349,00 
699.00 
599.00 
899.00 
1495.00 
1995.00 
1695.00 
249.95 
119.95 
499.95 


Tandy 1200 1 FD & 10 Meg HD 
Tandy 1200 2 FD 256K 
VM-3 Green Monitor . 
CM-2 Color Monitor 
Graphics Display Adapter. . 
Graphics Master 

Captain Multifunction Board 
TCS-100 Tape Cartridge System 
Tandy 1000/1200 Interface Kit . 
MSDOS/BASIC .... 89.95 
Tandy 2000 Two Disk 1599.00 
Tandy 2000 1 FD and 10 Meg HD 2499.00 


1999.00 
149.95 





OUR 
PRICE 


$ 199.00 $ 169.00 


230.00 
285.00 
595.00 
460.00 
635.00 
1225.00 
1650.00 
1440.00 
210.00 
100.00 
420.00 


1200.00 
185.00 
390.00 
255.00 
540.00 
475.00 

1555.00 
120.00 

76.50 

1225.00 

1885.00 


Mod 1000 128K 1 FD & Deskmate $ 999.95 $ 705.00 


1999.00 
149.95 
199.95 

99.95 
299.95 
299.95 
699.95 

34.95 

34.95 
495.95 


Model 1000 256K 1 FD 10Meg HD 
300-Baud Modem Board 

Disk Drive Expansion à 
RS-232C Interface 1000/1200 . 
Hard Disk Control Board 
1200-Baud Modem Board . 

10 Meg Hard Disk Drive System 
MS-DOS Reference Manual 
BASIC Reference 


Homewriter 10 , 
LX-80 Do" Matrix Printer . 
FX-85 Do: Matrix Printer 
JX-80 Color Dot Matrix Printer 
HI-80 4 Pin Plotter 
RX-100 Dot Matrix Printer. ..... 
FX-185 Dot Matrix Printer . ..... 
LQ-1500 18 Pin Head with Intf . . 
LX-80 Tractor Feed .... 
DX-10 Daisy Wheel Printer . .... 
DX-20 Daisy Wheel Printer .... 
DX-35 Daisy Wheel Printer .... 


299.00 
499.00 
699.00 
599.00 
499.00 
699.00 
1495.00 


899.00 


1475.00 
125.00 
170.00 

85.00 
255.00 
230.00 
559.00 

29.00 

29.00 
420.00 
310.00 


225.00 
385.00 
485.00 
390.00 
400.00 
525.00 
1100.00 
25.50 
255.00 
390.00 
765.00 





For Technical Questions and Information on our complete line of 
computer accessories and current prices. 


CALL 1-517-625-4161 


FOR ORDERS ONLY CALL 1-800-248-3823 


Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-6, Sat. 9-3 


124 S. MAIN ST. PERRY, MICH. 48872 








MEL Letters to PCM 


Editor: 

I have a Tandy 1000 and a CGP-220 
printer. The December 1985 issue has a 
program in it which I entered into my 
computer (The Gallery, Page 52). It 
worked on the computer screen but 
would not print on the printer. 


Debbie Kimler 


Editor's Note: This program was 
not written to automatically print 
on your printer. You must have 
the DUMPCGP .SYS driver installed 
in your CON FIG.SYS file. Once 
the image is displayed on the 
screen, press SHIFT-PRINT and it 
will be dumped to your printer. 

To install the screen print driver 
in your configuration, type the 
following at the MS-DOS 
prompt, pressing ENTER after 
each line: 


COPY CONF IG.SYS*CON CONF IG. SY'S 
DEVICE=DUMPCGP.SYS 
CTRL-Z 


You will have to reset the system with 
this disk for the driver to be installed. 


Editor: 

I just discovered that Handi 1000 
(January 1986) will not run on a 128K 
machine as published. The 128K ma- 
chine will not support SCREEN 6 and the 
large program. By way of amends, I am 
including the needed changes to make 
a SCREEN 2 functioning version for 
128K users. It probably will run on 
Tandy 1200, 2000 and 3000 also! 

Type in the modified lines, save them 
as an ASCII file and merge them with 
the original to get a working copy. 

Leonard Hyre 
Cambridge, MD 


Editor's Note: To modify Handi 
1000 for the 128K Tandy 1000 do 
the following: 
This version should run on 1200 
and 3000 also. 


Delete lines 110, 120 and 830. 

Change the following lines as 
shown or type them in separately 
and type SAVE "MOD.BRS^,R to 
save the new lines as an ASCII 
file. Next, load HAND1Ø99 and 
type MERGE “MOD.BAS”. Then 
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save the whole thing as HAND 
128.BAS. 


110 KEY OFF : SCREEN 2,1:CLS 
160 CLS:GOSUB 1720:PRINT STRINGS 
(80,^"*^"):LOCRTE 3,29: PRINT 


Ma-ES HAND I - 1000”: 
LOCATE 5,1:PRINT STRINGS 
(BO, ^X") 


410 CLS:LINE(380,80) - (600, 
130),1,B:LINE(449,100) - (470, 
128),1,B:LINE(525,1ØØ)-(57, 
118),1,8 

940 CLS:PRINT STRING$ (BØ, 

202) :LOCRTE 2,1:PRINT” 
WALLPAPER CALCULATION”: 
LOCATE 3,1:PRINT STRINGS 
(80,202) 

1240 CLS:PRINT STRINGS(80, 
^X"):1F ANS="4”THEN SYS 
=“CARPETING A ROOM” ELSE IF 
ANS”6”THEN SY$="* TILING 
A ROOM *” 

1270 LINE ( 360,140)- (620, 

190) ,1,B8:LINE(450,140)-(500, 
156) ,1,BF :LINE(620,160) - 
(636,184),1,8F 

1770 CLS 


Editor: 

I sold my Tandy 2000 and purchased 
a Tandy 1000 in order to be able to 
afford all *the goodies." I'm happy with 
the move, although I miss the very fast, 
high density disks, the large keyboard 
buffer and most of all, a readable screen 
display! 

I noticed that the Tandy 1200 also has 
excellent text quality, probably match- 
ing that of the 2000's. How do I get it 
on my Tandy 1000? Why are the char- 
acters so fuzzy on the VM-2? Is it the 
character generator chip? Please help, 
I'm going blind. 

W. Aird Flavelle 
Calgary, Alberta 


Editor’s Note: The Tandy 1000 
provides two monitor outputs. 
One for an RGBI (Red-Green- 
Blue-Intensity) monitor and 
another for a “composite video” 
monitor. The VM-2 connects via 
the composite jack, which produ- 
ces a signal similar to what you 
would get on the video output jack 
of your home VCR. The Tandy 
1200 and 2000 use a different 
technique for their monochrome 
display, TTL signals. This type of 


interface, designed for this com- 

puter applications — 

much higher-resolution displays. 
In short, the problem is with the 

computer — not the monitor. The 

only solution is to switch to a 

high-resolution RGBI monitor. 


Editor: 

I have been operating a Tandy 2000 
at our business for about a year-and-a- 
half now. I subscribe to your excellent 
magazine, 80 Micro and Business Soft- 
ware. It seems there is very little infor- 
mation regarding homebrew interfaces 
and improvements for users. 

For example, Tandy lists the 10 Mb 
hard disk drive assembly for $1,300+. If 
we Tandy lovers had IBM PCs we could 
mail order a similar hard disk drive for 
about $700! I wonder if there’s any 
feasible way to use an independent 
supplier’s hard disk package on the 
2000? Undoubtedly, the controller card 
wouldn’t fit precisely but, would the 
electronics be right? Or, can a person 
buy the controller card from Tandy by 
itself and supply another drive? 

Another titilating item is the abun- 
dance of cheap RAM chips available by 
mail order. What kind of chips does the 
Tandy 2000 use in the memory expan- 
sion boards; 64K or 256K? What 
happens if you buy an expansion board 
and decide to populate it with 256K 
RAM chips? Please explain the differ- 
ences between these chips and what can 
be done with them. 

I am curious about the 640K RAM 
board advertised in PCM. Does it 
perform as advertised? I made an in- 
quiry to the manufacturer but have not 
received a reply. 

I believe that other readers have 
similar questions and would appreciate 
seeing your comments in print. 

Lew A. Maneval 
Jasper, MO 
Editor’s Note: Tandy does not sell 
their hard disk controller board 
without the disk drive, so you 
pretty much have to stick with 
their package. 

You can, however, install your 
own 64K RAM chips in the Tandy 
expansion boards. 256K chips 
would not work in these boards, 
though, because the boards were 
not designed to address the 
higher-density chips. 


TANDY san som 


Each and every month, PCM 
offers an assortment of pro- 
grams for the home and office — 
utilities, business applications, 
games and more — all for the 
price of typing in the listings. 


If you're a person on the move, 
and too busy to spend time typ- 
ing lengthy listings, then PCM has 
just what you need — 

PCM ON DISK. 


PCM ON DISK 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
(502) 228-4492 


PCM ON DISK provides each 
issue's MS-DOS programs ready 
to load and run with only a few 
keystrokes! 


AS AN ADDED BONUS, PCM ON 
DISK will include PCM's portable 
computer programs, which may 
be downloaded to portables for 
those readers who have both an 
MS-DOS machine and one of 
Tandy's portable computers. 








That means you get a disk 
each month for a year, 
containing all programs listed 
in that month's issue, for an 
average cost of only $8.25!" 
We think it's worth your time to 
subscribe. 


*Disks for individual issues (beginning 
this month) may be ordered for only 
$12 each. 





I would like a one-year (12 months) subscription to PCM ON DISK. 


Name 
Address 
City 


Payment Enclosed 0 


SH OS Eo d EHE LUE DERECHA eS i 


ZIP 


Charge Visa MasterCard O American Express O 


My Account? 


Signature 


Card Exp. Date 





"Subscriptions to PCM ON DISK are $99 a year in the United States. Canadian rate U.S. $115. All other countries U.S 
$115; PCM ON DISK single copy rate is: $12 within the U.S.; U.S. $14, Canadian rate; U.S. $16, all other countries. Kentucky 
residents add 596 sales tax. All subscriptions begin with the current issue unless otherwise specified. Please allow 5 to 6 
weeks for first copy. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 
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. here are many reasons for prais- 
… ing the virtues of owning a com- 


ZY." puter. Among these, one reason 


that seems to have the greatest possibil- 


» ity for home use is that of home edu- 


/ 


cation. The Tandy 1000 possesses many 


» of the attributes needed to excel in this 
M." field. Excellent graphics capability, 


large amounts of available memory and 
a flexible language base are all there. 

Math drill programs abound for the 
student, many of them excellent pro- 
grams. But it seems that programmers 
tend to miss one important area of the 
advancing math student. When a stu- 
dent is first faced with the need to work 
multiplication and division problems 
with larger numbers, the concepts of 
carrying remainders and the need to 
perform multiple functions on one 
problem are difficult to grasp. This 
program is an attempt to aid these 
students, leading them through each 
logical step required to solve a given 
problem, 

In the Electric Blackboard, the stu- 
dent is shown the problem as it would 
appear on a blackboard (would you 


(Leonard Hyre works as a claims repre- 
sentative for the Social Security Admin- 
istration. He has written several articles 
for THE RAINBOW, PCM 's sister publica- 
tion for the Color Computer, and is the 
author of a number of commercial 
programs. He may be contacted at P.O. 
Box 403, Cambridge, MD 21613; 301- 
228-0064.) 


believe a white board). He or she is then 
led through the step-by-step solution of 
the entire problem. I believe this graph- 
ics demonstration of the logic will help 
the student grasp the concepts involved 
more quickly. 

The Electric Blackboard can also 
serve as a programming exercise for the 
novice BASIC programmer, as it incor- 
porates many of the excellent graphics 
and text capabilities of Tandy 1000 
BASIC. There is nothing, however, that 
would go beyond the grasp of a novice 
BASIC programmer. Also, I must point 
out for those of you with “Big Blue” 
PCs, I’m afraid your machines are just 
not Tandy compatible enough for the 
BASIC graphics capability of the 1000. 

Electric Blackboard can be thought 
of as consisting of four separate main 
routines plus a couple of smaller side- 
tracks for housekeeping and such. The 
four main sections are Title Screen, 
Classroom Scene, Multiplication and 
Division. Additionally, the smaller 
“Turn out the lights” routine is separate. 

I would like to discuss each section 
separately, but would first like to give 
you some of the generalities. The pro- 
gram uses SCREEN 6, allowing us to use 
Hi-Res graphics and text on the same 
screen. If the 1000 is your first machine, 
you may not realize what a unique 
capability this is. To set aside the 
memory required for SCREEN 6, we 
must first CLEAR ,, , (32768). In other 
words, tell BASIC that this graphics 
screen is going to need that much 
memory saved for our program’s graph- 
ics. Note that when we type in the line 





> EEE 





(Line 120), we type CLEAR ,, , (32768). 
BASIC changes it to CLEAR ,,, 
(32768!). You do not type in the 
Exclamation Mark! 

The title screen is strictly window 
dressing; that is, the program would 
function fine without it. However, I 
have a weakness for such things and the 
vision of a blackboard discharging bolts 
of electricity was irresistable. Line 140 
sends the computer all the way to 1940 
to put the title on the screen and give 
the author his ego strokes. Nothing 
fancy here; the bolts of electricity are 
simply drawn in yellow (Color 1... 
since we used Palette 1,14 to make 
it so) and then overdrawn in black to 
make them disappear. After a few 
seconds of this we return to the GOSUB 
at 140 and continue with the next line. 

The next step in program operation 
is the creation of the classroom scene 
with a brick wall, teachers desk, a 
“white” blackboard and a bit of decor. 
When typing in the STRINGs from 
which the wall is created, you simply 
press the ALT key and, while holding it 
down, use the numeric keys to type in 
the ASCII number of the character 
needed. Please refer to lines 1290-1310 
of the program for more explanation of 
this method. We do not need to create 
great detail in our classroom. We need 
only to give an illusion of a classroom 
to set a proper mood. Perhaps the 
trickiest graphics command is PRINT, 
because the painting begins at the 
specified point of origin and flows in 
every direction until the stated border 
color is reached. A bit of a leak, and you 
end up with a solid color screen. The 
screen finished, the program jumps 
back to the GOSUB from which it came. 

The RETURN takes us back to 1220, 
where the program picks up another 
GOSUB to Line 1730. You may wonder 






The listing: 









19g ' 


12 PCM February 1986 


why we needed to return in the first 
place. If you examine the two subrou- 
tines, you will find that the first, at lines 
1220-1700 is the classroom, which is 
only needed one time for each time the 
program is run. The other is the choice 
menu, which is repeatedly called during 
program execution. We would not want 
to redraw the entire screen just to get 
another problem. Thus it is necessary to 
have separate routines. 

Finally, the meat of the subject — 
mathematics. The multiplication is 
handled in the routine from 300-580, 
and the division is done from 630-1100. 





From a programmer's point of view, 
the only tricky part here is manipulating 
numerics and strings to obtain the 
proper display and at the same time, 
keep track of the correct answer. Use of 
the powerful string-handling com- 
mands, RIGHTS, MIDS and STR$S, are 
used often. If you examine the routine 
line by line, the seemingly confusing 
combinations may soon make sense to 
you — a sure sign that *Computerese" 
is becoming your second language. 

By the way, if you wish to change the 
difficulty level of the problems, you can 
do so by changing the values of A and 





"We must determine the problem to be 
solved by selecting two random 
numbers, in this case a multiplicand in 
the range of 11 to 99 and a multiplier of 


less than 10" 





Since these two routines share much the 
same type of programming problems, I 
will only detail one of them, the multi- 
plication. 

We must determine the problem to be 
solved by selecting two random 
numbers, in this case a multiplicand in 
the range of 11 to 99 and a multiplier 
of less than 10 (lines 320-340). The 
problem is then written on the black- 
board in standard math notation; that 
is, the same way a student would write 
it out on paper. The student is then led 
through the problem. Wrong answers 
are not accepted, the student being 
forced to try again. This assures that the 
ultimate answer will be correct and the 
steps needed to arrive at that answer will 
have been performed by the student. 


| 
| 
| 
| 
| 


3g '* * 
4g '* THE ELECTRIC BLACKBOARD * 
5g '* by LEONARD HYRE * 
6g '* (C) NOV. 1985 * 
7g '* For TANDY 1099 Users! * 
8g '* * 
3 TEk kkk ik tee Fe kkk III IVIL ELSIE IEICE RIEDEL LAIR ERE. 


11g 'NOTE: Do NOT Type in the '!' in the next line...BASIC WILL ADD IT 


B, in lines 330 and 340 for multiplica- 
tion and lines 650 and 660 for division. 
If you have any problems using the 
Electric Blackboard, please feel free to 
write or call me. I am always glad to 
help with this type of problem. If the 
typing presents too much of a challenge 
to you, I will be happy to send you a 
copy of the program on disk. Just send 
me $7 to cover costs and shipping. Of 
course, the program is also available 
from the MS-DOS SIG on DELPHI, at 
a nominal charge, and on PCM ON DISK. 
My address is: 
Leonard Hyre 
P.O. Box 403 
Cambridge, MD 21613 
Phone (301) 228-0064 after 5 p.m. 
EST. D 














HARD DRIVE PRICE BREAKTHROUGH 


STARTING AT $299.95! 


5 to 60 megabytes complete easy to install internal and external systems 
— will boot just like an XT — fully warranteed — 
same day shipping from stock — fast service — free technical assistance 


$499.95 to $999.95 
STREAMING OR FLOPPY TAPE BACK UP SYSTEMS 


complete internal and external systems 


$1,995.00 — IBM XT WORKALIKE SPECIAL 
20 megabytes — one floppy — 640K — clock calendar — serial port — parallel port 
monochrome card — monochrome monitor with tilt and swivel base 
Keytronics 5151 style keyboard — one year warranty — shipped from stock 


MEGADISK™ HARD DISK DRIVE SYSTEMS TOLL FREE ORDERING 1-800-343-8841 
For the { IBM/PC, Tandy 1000, TRS/80 Models I/IIL/IV/4P, Compaq, PC Workalikes, Color Computers, Heath/Zenith, Max/80 


Complete with Hardware, Cables, Software and Quikfit Installation 
Megabytes: Internal Monti: ennen ele 3 laða 5 acervi dime, bestemte LON FVR A ATER Sra ie, AOL neve Seen. EE aes starting at $ 279.95 
10 Megabytes Internal Mount Owl: starting at 
20 Megabytes Internal Mount .............. dai a pus starting at 
Megabytes External System AN å starting at 
10 Megabytes External System ay, starting at 
20 LAC starting at 
Tape Backup System — Interna; Or External starting at 
ú " Å . SIBM/Heath — DOS, 1.0, 2.0, 2.1, 3.0, or later 
DOS Systems Available: 2 TRS/80-LDOS, TRSDOS 6.x, Newdos/80, Dosplus, CP/M, COCO DOS, Max/80 LDOS, OS9 
FULLY WARRANTIED — PARTS AND LABOR — 24 HOUR SERVICE — CALL TOLL FREE — 1-800-343-8841 


IBM ENHANCEMENT CARDS 


Multifunction with 384K Color graphics 
Serial port, parallel port Monochrome/RGB Color 
Clock calendar, game port Disk controller with cable — up to 4 drives 
Serial port k 384K memory 
Monochrome only A Hard drive controller 
Monochrome graphics w/parallel port Å Keytronics 5151 style keybo 
Network card 2 





DEALER INQUIRIES INVITED — PRICES CHANGE EVERY DAY 
CALL 1-617-872-9090 CALL 1-800-343-8841 


ms SOFTWARE SUPPORT, INC. 


I Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 
Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.ST.) Sat. 10 am to 3:30 pm 


SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 


WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 
SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 


Handling An meme: — LOL Free 1-800-343-8841 mmm 


r å . . * i. Prices and Specifications May Change 
Cash Discounted Prices Please Call For Our Latest Price Saving Specials. Without Notice. 





129 CLEAR ,,,(32768!) 

139)" 

149 GOSUB 1949 

15Ø 

16Ø '3eee* GO SET UP SCREEN nt 

17g " 

18% GOSUB 1229 

199° 

299 Vtr GO SET UP MENU See 

21g " 

220 GOSUB 1739 

23Ø 

249 "eee AWAIT MENU CHOICE "eek 

259 ' 

269 ON AN GOTO 399,630,1149 

279" 

289 Vek MULTIPLICATION MAIN BODY exe 

299! 

39g GOSUB 1819 

319 LOCATE 4,6:PRINT"MULTIPLIGATION Problems:" 

329 RANDOMIZE 

339 A=INTCRND(9)*99):AS=STR$ (A): IF A«11 THEN 33g 

349. B=INT(RND(9)*7)+2:B$=STR$(B) 

359 LOCATE 4,42; PRINI" THE PROBLEM IS;";B" X "A 

369 LOCATE 15,39:PRINT A:LOCATE 16,37:PRINT "X | ";B:LOCATE 17,38:PRINT "áááá" 
37g LOCATE 14,45:PRINT"Multiply ";RIGHT$(B$,1)" x ";RIGHT$(AS,1);" ="; 

38% C1-VAL(RIGHTS$(AS$,1))*VAL(RIGHTS(B$,1)) 

399 INPUT ANS 

499 AN-VAL(ANS):IF AN<>C1 THEN LOCATE 14,61: BEEP; PRINT" "PSLOCATE 14,61:GOTO 3 
9g 

419 GOSUB 188Ø:LOCATE 15,45:PRINT"WRITE IN ";RIGHTS(ANS$,1);" and GARRY ";:IF Cl< 
1g THEN PRINT"Ø"; ELSE PRINT MIDS(AN$,1,1); 

429 LOCATE 18,41:PRINT RIGHT$(AN$,1):LOCATE 14,4Ø:IF C1<1Ø THEN PRINT "g"; ELSE 

PRINT MIDS(ANS,L,1); 

439 LOCATE 16,45:PRINT"Multiply ";RIGHTS(B$,1)" x ";MID$(A$,2,1);" ="; 

449  C2=VAL(RIGHT$S(B$,1))* VAL(MIDS(A$,2,1)) 

459 INPUT AXŞ 

46Ø AX=VAL(AX$) : IF AX<>0C2 THEN LOCATE 16,61:BEEP:PRINT" "LOGATE 16,61:GOTO 4 
5g 

47g] GOSUB 188Ø:LOGATE 17,45:PRINT"ADD ";AX;" 4 ";:IF CI<IØ THEN PRINT"Ø";ELSE PR 
INT MID$(AN$,1,1); 

489 IF C1<1Ø THEN AD=AX ELSE AD=AX+VAL(MIDS(ANS$,1,1)) 

499 INPUT: AZ$ 

599 GOSUB 1889 

519 IF VAL(AZ$) <> AD THEN LOCATE 17,45:BEEP:PRINT STRING$(19," "):GOTO 47g 

529 LOCATE 18,45:PRINT"WRITE IN ";AD:GOSUB 1889 

539 IF A*B<1ØØ THEN LOCATE 18,39:PRINT A*B;ELSE LOCATE 18,38:PRINT A*B 

540 LOCATE 7,1Ø:PRINT"CORRECT! HOW ABOUT ANOTHER (Y/N)?" 

559 AKS-INKEYS:IF AK$=""THEN 559 

560 IF AK$="Y"OR AK$="y" THEN 589 

579 FOR WIPE-14 TO 19:LOCATE WIPE,37:PRINT STRING$(31," ");:NEXT WIPE:GOSUB 1819 
:RUN 229 

589 FOR WIPE=14 TO 19:LOCATE WIPE,37:PRINT STRINGS$S(31," ");:NEXT WIPE:GOSUB 1880 
:RUN 399 

599." 

69g ! 
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61Ø ‘xe DIVISION MAIN BODY Yws 

62g ' 

630 LOCATE 4,6:PRINT"DIVISION Problems:" 

649 RANDOMIZE 

650 A=INT(RND(9)*888)+100:AS=STRS(A) 

669 B-INT(RND(9)*7)42:1F B=< VAL(MIDS(AS,2,1)) THEN 659 

679 BS=STR$(B): LOCATE 4,42:PRINT"YOUR PROBLEM IS ";A;" DIVIDED BY ";B; 

689 LOCATE 15,39:PRINT " " 

699 LOCATE 16,37:PRINT B$;"1";A$ 

780 LOCATE 16,48:PRINT MID$(A$,2,2);" ";CHR$(246);B;" ="; 

718 DX=INT(VAL(MIDS(AS,2,2))/B) 

729 INPUT DY 

739 IF DX<>DY THEN BEEP:GOSUB 188Ø:LOCATE 16,48:PRINT STRINGS(14," ")::GOTO 790 
749 GOSUB 1889:LOCATE 14,41:PRINT DY; 

750 LOCATE 17,47:PRINT " ";DY;"x";B;" ="; 

769 INPUT DM 

779 IF DMS DY*B THEN LOCATE 17,47:BEEP:PRINT STRING$(14," ");:GOTO 759 
789 GOSUB 188Ø:IF DM<1Ø THEN LOCATE 17,41 ELSE LOCATE 17,49 

799 PRINT DM:LINE(312,135)-(335,135),3 

899 LOCATE 18,48:PRINT MID$(AS,2,2);" -";B¥DK; "="; 

819 DOSVAL(MID$(A$,2,2)) -(B*DX) 

829 INPUT DP 

839 IF DP<> DO THEN LOCATE 18,48:BEEP:PRINT STRINGS(14," ");:GOTO 89g 

849 LOCATE 18,41:PRINT DO; 

859 LOCATE 18,43:PRINT MID$(A$,4,1); 

86% DOŞ=STR$ (DO) :DV$=DO$+MIDS(A$,4,1) : DV=VAL(DV$) : GOSUB 1889 

879 IF DV<1Ø THEN LOCATE 19,48:PRINT DV;CHR$(246);B;" ="; 

889 IF DV>9 THEN LOCATE 19,47:PRINT DV;CHR$(246);B;" ="; 

899 DW-INT(INT(DV)/B) 

999 INPUT DX:GOSUB 1889 

919 IF DX<>DW THEN LOCATE 19,47:BEEP:PRINT STRINGS(14," ");:GOTO 879 

920 LOCATE 14,41:DY$-STR$(DY):DX$-STRS (DX) :DZ$-DYS4RIGHTS(DX$,1):PRINT DZS; 
939 GOSUB 1880:LOCATE 2Ø,48:PRINT DX;'*";,B;" ="; 

949 DU-DX*B 

959 INPUT DT 

969 IF DT<>DU THEN LOCATE 2Ø,48:BEEP:PRINT STRINGS(14," ");:GOTO 939 

970 IF DX*B<1Ø THEN LOCATE 19,42:PRINT DX*B; ELSE LOCATE 19,41:PRINT DX*B; 
989 LINE(328,151)-(35Ø,151),3 

999 LOCATE 21,48:PRINT VAL(DV$);"-":(DXX*B);" ="; 

1909 DV-VAL(DV$):DS-DX*B:RM-DV-DS 

1919 INPUT RO 

1929 IF RM <> RO THEN LOCATE 21,48:PRINT STRINGS(14," ");:BEEP:GOTO 990 
19039 LOCATE 29,42:PRINT RM; 

1940 LOCATE 14,48:PRINT"REMAINDER =";RM 

1950 LOCATE 22,45:PRINT"WRITE IN ";AD:GOSUB 1889 

1960 LOCATE 8,1Ø:PRINT"CORRECT! HOW ABOUT ANOTHER (Y/N)?" 

1979 AKS-INKEYS$:IF AK$=""THEN 1979 

1989 IF AK$-"Y"OR AK$="y" THEN 119g 

1999 FOR WIPE=14 TO 22:LOCATE WIPE,37:PRINT STRINGS(31," ");:NEXT WIPE:GOSUB 181 
Ø:RUN 229 

1199 FOR WIPE-14 TO 22:LOCATE WIPE,37:PRINT STRINGS(31," ");:NEXT WIPE:GOSUB 181 
Ø:RUN 639 

1119 ' 

1129 "seer END PROGRAM Weer 

1139 ' 

1149 COLOR 3,Ø:LOGATE 16,42:PRINT"OK - NO HOMEWORK TONIGHT!" 

1159 CIRCLE(359,145),25:CIRCLE(338,149) , 4: CIRCLE(362,140) , 4: DRAW'BM348 , 143; F2E2" 
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1169 DRAW"BM346,148;E2R4F2":DRAW"BM344,152;F2RBE2" 

1178 LOCATE 19,48:PRINT"<- Teacher!" 

1189 ' 

119% GOTO 1199 

1299 'seec* THE CLASSROOM MAIN BODY sæts 

1219 ' 

1229 KEY OFF:SCREEN 6,1 

1239 PALETTE Ø,15:PALETTE 2,1 

1249 PALETTE 1,2:PALETTE 3,4:CLS 

1259 ' 

1260 "XxxX BRICK WALL tt 

12798 "' 

128g ' ENTERING THE BLACKBOARD! ASCII Characters for the Blackboard are 
129% ' entered by holding down the ALT KEY and typing the ASCII number for 
13090 ' the desired character. Characters used are às follows: 

1319 ' 295 is = / 293 is Y / 292 is X / 296 is + 

1329 ' 

1339 BSS PT TT PP 
134g BMS= A RE E I IE IE Esse LLL dd" 
1359 BD$- RR EHI EIE RH IER 
1369 LOCATE 12,19:PRINT BK$ 

1370 FOR X-13 TO 23:LOCATE X,19:PRINT BM$:NEXT X 

1389 LOCATE 24,1Ø:PRINT BD$; 

1399 "' 

14909 kxk THE WALL BOUNDARIES rot 

1419 ' 

1429 LINE(75,1995-(9,299),1 

1439 LINE(599,199)-(639,299),1 

1449 LINE(75,9Ø)-(Ø,85), 1 

1459 LINE(59Ø,9Ø)-(639,85), 1 

1469 LINE(Ø,8Ø)-(639,8Ø),1 

147Ø LINE(75,9Ø)-(75,19Ø) , L:LINE(59Ø,9Ø)-(59Ø,19Ø),1 

148Ø PAINT (5Ø,11Ø),L,L:PAINT(6ØØ,11Ø),1,1 

149Ø ' 

159g "ere THE BLACKBOARD AND CLASSROOM DETAIL *"ee* 

1519 " 

1529 FOR BOARD- 13 TO 22:LOCATE BOARD,35:PRINT STRING$(35,' ");:NEXT 

1539 LINE(274,95)-(559,176),2,B 

1549 LINE(8Ø,16Ø)-(25Ø,18Ø) ,2, BF: LINE(89,189)-(99,199) ,2, BF: LINE(249,180)- (259,1 
99),2,BF:LINE(84,162)-(246,178),0,B 

1559 CIRGLE(1ØØ,15Ø),12,2:PAINT(1ØØ,15Ø),2,2 

1569 LINE(96,154)-(98,169),3, BF: CIRCLE(98,148), 3, TL; PAINT(98,148) ; 1, T: CIRCLE(192,, 
152),4,1:PAINT(192,152),1,1:LINE(225,159)-(239,169) , 3, BF 

1579. LOCATE 19,29,0:PRINT CHR$(5)5; 

1589 LINE(1Ø7,1ØØ)-(228,128),2,BF 

1599 LINE(198,191)-(227,127),1,B 

1609 LINE(197,124)-(136,129),1:LINE-(148,124),1:LINE-(179,119),1:LINE-(192,124), 
L:LINE-(226,119), L:CIRGLE(14Ø,111),3,1:PAINT(14Ø,111),3,1:PAINT(1Ø9,126),1,1 
1619 LINE(Ø,7Ø)-(639,7Ø) ,Ø:PAINT(5,72),4,Ø 

162Ø RC=1 

163Ø FOR RB=1 TO 6:CIRCLE(168,129),52*RB,RC,2,3.3,.3:RC-RC*1:IF RO=2 THEN RC-RC- 
2:NEXT RB 

164g ' 

1659 'xXeee* PUT UP THE TITLE ser 

1669 ' 

1670 LOCATE 1,21:PRINT"**%*** The ELECTRIC BLACKBOARD sexe" 

1689 LOCATE 2,1:PRINT STRING$(8Ø," "); 


February 1986 





169Ø RETURN 

1799 ' 

1719 '**%** THE PROGRAM MENU vere 

172g ' 

1739 LOCATE 4,36:PRINT"The MENU" 

1749 LINE(19,29)-(639,79),2,B,&H5555 

1759 LOCATE 5,35,9:PRINT"1» MULTIPLY":LOCATE 6,35:PRINT"2> DIVIDE";:LOCATE 7,35, 
Ø:PRINT"3> SCHOOL'S OUT" 

1769 AN$=INKEY$:IF AN$-""THEN 1759 ELSE IF VAL(AN$) «1 OR VAL(AN$) >3 THEN 1759 
ELSE AN-VAL(AN$) 

177% RETURN 

178g ' 

1799 '**** WIPE OUT OLD SCREEN DISPLAYS vnr 

1899 ' 

1819 FOR WIPE=3 TO 9 

1829 LOCATE WIPE,1:PRINT STRING$(89," ");:NEXT WIPE 

1839 LINE(19,29)-(639,79),2,B,&H5555 

1849 RETURN 

1859 ' 

1869 '*%*%%* NOISE AS NEEDED eek 

1879 ' 

1889 FOR DL-1 TO 3ØØ:NEXT DL:PLAY "V1503L64C":RETURN 

1899 ' 

199g "week TITLE SCREEN ork 

191g ' 

1929 '[ SEE PCM 9/85-The Sounds of Science by Bill Barden FOR sound creation |] 
1939 ' 

1949 KEY OFF:SCREEN 6:COLOR 12,9:CLS 

1959 LOCATE 25,1:PRINT STRING$(8Ø," ");:PALETTE 1,14:PALETTE 2,19 

196% LOCATE 12,28:PRINT"The ELECTRIC BLACKBOARD" 

1979 LINE(5Ø,4Ø)-(59Ø,15Ø),2,B,&H5555 

1989 LOCATE 22,35:PRINT "by L. Hyre" 

1999 FOR LTNG-1 TO 6 

299g DRAW"BM25Ø,11Ø;C1G15R1ØG12R8G9":DRAW"BM375,11Ø;C1G15R1ØG12R8G9" 

2919 DRAW"BM2ØØ,95;C1G8H16G12H9" :DRAW"BM2ØØ,95; CØGSH16G12H9" 

2Ø2Ø OUT &H61,&H6C:OUT &HCY,&HEG+1*4+9: FOR I=1 TO 15:0UT &HCOØ,&HFØ+I:NEXT I 
2939 DRAW"BM25Ø,11Ø;CØGL5R1ØG12R8G9":DRAW"BM375,11Ø;CØGL5R1ØG12R8G9" 

2949 DRAW"BM259,89;ClH15R12H12R8H12":DRAW"BM375,89; ClEl5L12E12L8E12" 

2959 DRAW"BM259, 89; C@H15R12H12R8H12" : DRAW"BM375 , 89; CQEl5L12bE12L8E12" 

2969 OUT &H61,&H6C:0UT &HCOØ,&HEØ+1*4+Ø:FOR I=1 TO 15:0UT &HCØ,&HFØ+I:NEXT I 
2979 DRAW"BM41Ø,95;C1F12E18F8E12":DRAW"BM41Ø,95;CØF12E18F8E12" 

2989 NEXT LTNG 

2999 FOR DL-1 TO 2ØØØ:NEXT DL 

2199 RETURN 
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The new 


disk-based 
Tandy 600. 





A Breakthrough in portable 


computing power and versatility. 


Finally—a portable that matches the 
performance of a desktop computer. 
Our new Tandy 600 features a 16-bit 
microprocessor, an 80-character by 16- 
line display, a built-in 31/2” disk drive 
that stores 360K of data and 32K RAM 
(expandable to 224K *). 


Five Resident Applications 

With the Tandy 600's larger display 
and expanded memory, Multiplan 
spreadsheet analysis can hold more in- 
formation. Word processing is as easy as 
using MS-Word. You'll have quicker ac- 
cess to documents, and better storage 
with the built-in disk drive. File is an 
electronic data base for names and ad- 
dresses, expenses, client billing, inven- 
tory and more. And you can keep a 
large number of different files on the 
pocket-size diskettes. With Telecom and 


the Tandy 600's built-in modem, you're 
able to communicate with other com- 
puters over phone lines and access na- 
tional information networks. Telecom 
will even dial the phone number of any- 
one listed in the File program. Calendar 
helps you keep track of daily tasks and 
activities. 


The easy-to-learn resident System 
Manager lets you run each application, 
exchange information between applica- 
tions and manage the files created. And 
you can add BASIC/ROM (26-3904, 
$129.95) to write your own programs. 


Tandy . . . Clearly Superior” 


If you've been looking at portable 
computers, compare them with the 
Tandy 600 (26-3901, $1599). You'll be 
amazed at what it can do! 







Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


® 


A DIVISION OF TANDY CORPORATION 
| ENG HE oe ae ee E í 


Send Me a Free 
Tandy 600 Brochure. 
Radio Shack, Dept. 86-A-916 


300 One Tandy Center 
Fort Worth, TX 76102 
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* RAM upgrades are in banks of 96K each (26-3910, $399.95). Prices apply at Radio Shack Computer Centers and participating stores and dealers. Multiplan and MS-Word/TM Microsoft Corp. 
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Going Online with 
Telecom: Computerize your 
Logon Procedure with 
Analog Files 


By Bobby Ballard 


| ast month we were discussing many of the aspects of 

telecommunicating, specifically the Telecom section 

of DeskMate. This particular aspect of Desk Mate 
has many features and can be confusing, especially if you 
are new to telecommunicating. This month I want to cover 
the features we didn't get to last month so you can make 
complete use of Telecom. I won't normally cover the same 
subject two issues in a row unless the topic, as in this case, 
is rather involved and lengthy. In addition, I feel it is 
important for you to put the Telecom section to work so 
you can reach out and get quick and efficient help from PCM 
by accessing the MSDOS SIG on Delphi. 

In the last installment I didn't have the time or space to 
cover “autolog” files other than to give a glossary expla- 
nation of what they are. We did cover auto-dialing, status 
settings and other aspects of telecommunicating which are 
directly related to using the autolog feature of Telecom. By 
using the auto-dial and autolog features you can easily 
connect with any other system with very little effort on your 

art. 
i, What is an autolog file? Simply stated, it is a predicted 
conversation between two computers, host and terminal, 
that you keep stored on disk to use in making connection. 
By knowing what information the computer you are calling 
is going to request, you can design an autolog file that 
handles the information exchange automatically. 

What is the difference between autolog and auto-dial 
files? The autolog file described above uses your auto-dial 
file to handle the actual dialing of the phone number, 
through the modem, and then uses the rest of the autolog 
file to handle the actual information exchange after 
connection is completed. You only design one auto-dial file 
for computer dialing that is designed to handle your 
modem. If you buy a new or different modem with a 
different protocol then you will have to redesign this file. 


(Bobby Ballard is a free-lance writer and the owner 
of a computer software and consulting firm. He also 
operates a BBS in Brooklyn. Bobby can be contacted 
at 1207 Eighth Avenue, Apt. 4R, Brooklyn, NY 
11215.) 
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By comparison, you will design and save many autolog files, 
which handle each of the services or BBSs you might be 
calling on a regular basis. 

It is nearly impossible to design an autolog file without 
knowing something about the service you will be calling. 
Since you are designing a predicted conversation, you must 
know exactly what is coming in order to provide the answers 
to each of the prompts. For example, if you are designing 
an autolog file for logging onto Delphi, you must not only 
know that the host system, Delphi, is going to ask for your 
password, but you need to know exactly how the system 
will ask for the password and when. Will the prompt be 
“Enter your password:” or will it be “PASS WORD:” oreven 
something different? 

In order to know what is coming, it is often necessary 
to manually logon to the service you will be using and keep 
track of the information exchange and prompts as you go 
through them. This is easy to do since you can just logon 
with your buffer open. This will cause all of the information 
to be stored in your computer memory; from there it can 
be saved to diskette after you log off for use in building your 
autolog file. 

Once you have saved your buffer to diskette, make a 
printout of the information you have and you're ready to 
start designing your autolog file. Make sure you have 
designed your auto-dial file and tested it so that you can 
concentrate on getting the autolog portion working 
correctly. If you know that the auto-dialing feature is 
working correctly and run into problems with an autolog 
procedure, then you will know where the problem is not. 

You will notice that each autolog file you design shows 
up in your Telecom window on Desk Mate’s main menu 
screen. This makes it possible to enter Telecom by invoking 
an autolog file and immediately begin logging on. Just make 
sure your modem is switched on and ready. Then move the 
file highlighter in the Telecom window to the autolog file 
that matches the service you will be calling and press ENTER. 
Desk Mate then enters Telecom, loads your autolog and 
auto-dial information and begins to make the connection. 

I want to point out one very distinct difference you will 
notice when saving autolog files on your diskettes. Unlike 


other files, autolog files are stored on the system diskette 
regardless of whether you are using the swap feature. In 
other words, if you are using Drive B: to save and retrieve 
information from Text or Filer and then design an autolog 
file; the autolog file will be saved to the system (Desk Mate) 
diskette. Likewise, when you swap drives from A: to B: your 
autolog files will still appear in the Telecom window. There 
might be a way around this but I've not discovered it yet. 
Take a look at Listing 1 for an example of the type of 
information that would appear in your printout after 
manually logging onto the Delphi information utility. The 
only difference would be the username and password 
information. This example is from logging on using the 
Tymnet packet switching network. If you use Uninet or 
Datapac, then the listing would be different, but the 
procedure we are going to follow would be the same. 


iu pen iridis in: å 
host: call connected 
(Username: YOUR: USERNAM 
Password:  YOURPRSSHORE Baum 


To get started building your duin file for Delphi, first 
enter the Telecom section of Desk Mate and then press F4 
for Editlog. You will then be greeted with an autolog edit 
screen for editing your file. Now think of the procedure you 
went through when logging onto Delphi, using the printout 
as an aid, and begin building. 

Notice the set of commands on the bottom of the autolog 
edit screen represented by FI-F5 and two operations 
represented by F9 and F10. The first five function keys are 
not direct commands, but commands that you place into 
your file. Using the function keys above each command you 
are able to enter these functions into your file with very little 
typing. Think of these keys as macros. Instead of having 
to type the word CALL, for example, you just type FI and 
the word appears on the screen followed by a cursor. 

The first step in logging onto any service is to set your 
terminal status. This comprises the different protocol 
settings found on the status screen that we covered last 
month. In order to save the specific settings needed for each 
of your autolog files you use the Fi key for Status. After 
pressing the F1 key, you will see the Status screen where you 
may change the settings to whatever is desired before saving 
them in your autolog file. Once set, press F12 (may be 
different on some machines) and you will be back in autolog 
edit. 

If the above status setting procedure is successful, you will 
see something similar to the first line in Listing 2. Each of 
the numbers has a meaning that relates directly to the status 
settings you chose. The first number is the Baud rate 
(shortened) followed by the number of bits (7 or 8), parity 
(letter ‘N’, *E' or ‘O’), the number of stop bits, the answers 
to the next four settings (On or Off) and the number of 
retries the autolog file is to use. 

The last setting is directly related to the autolog file itself 
and not to the communications status to be used while 
online. This is the number of times an autolog file will 
attempt to logon before giving up and aborting the 
procedure. By entering a zero in this parameter, the autolog 
file will try only once with zero retries. Entering a ‘1’ will 








try to logon twice, once for the first time and then one retry. 
So the total number of times the autolog will try to logon 
is one more than the number of retries because you must 
add the first time to the number of retries. 

The next step is to tell the autolog file what number to 
dial for making the connection. To do this you use the Call 
feature and enter it into your file by typing F2. The word 
CALL will appear on the screen followed by the cursor 
waiting for you to input a number for dialing. At this point 
type in the phone number you use in your local area for 
accessing Delphi. Type it in using just numbers; no spaces, 
no dashes. Check Listing 2 for an example. 

The next feature to invoke is the PRUSE. This is a way 
of telling the autolog file to wait a specific length of time, 
in seconds, before proceeding to the next command. You 
may have to insert a pause at various locations in your file 
to match the time it takes for various systems to respond 
to your data. In this case we are giving the modem and the 
host two seconds to get their signals together before we start 
sending data from the remaining autolog file. 

Most of the time the first two settings (lines 1 and 2 in 
Listing 2) will remain the same in all of your autolog files. 
Each of the status settings may be different for different 
services, but the status command will almost always be the 
first line in your autolog file. You will also almost always 
have the third line (PAUSE) in all of your files. However, 
the amount will vary. 

The next step in setting up your file is to begin referring 
to the printout you made from your manual logon. You 
must remember to send and receive the information that the 
network requires, as well. In my example, using Tymnet, 
the first request is "please type your terminal identifier." I 
have shortened this request to the last two words. This 
works fine and saves labor. 

One very important point to remember is to always 
construct the RECV: information exactly like it appears in 
your printout. Uppercase and lowercase are treated 
differently, and it is especially important to type in the exact 
number of trailing spaces that are found in the host's 
prompts. In Listing 1 you will notice that a space appears 
between the colon and the answer I've provided. This space 
is sent by the host for neat formatting and must be included 
in your RECV: design. 

The next line in the file sends an ‘A’ without a carriage 
return. The next send, though, must be followed by a 
carriage return represented by ^. This is called a control 
character and in ASCII code the carriage return is the “M? 
preceded by a caret. In the manuals that came with my copy 
of Desk Mate there is some confusion concerning how to 
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place a control character in your autolog file. The manual 
explains that you hold the control key CTRL down followed 
by the character ‘M’. This will not work, though. You must 
use the shifted ‘6’ key to place the caret symbol on the screen 
and into your file. 

Some systems will require that you send a BREAK signal 
to initiate communications. For example, CompuServe 
requires a BREAK signal. To send the BREAK signal you 
represent it with the caret symbol (SHIFT 6) and then a 
capital ‘C’. To figure out which letter will send which control 
character, just subtract 64 from the ASCII code number of 
that letter. The carriage return ASCII code, represented by 
decimal 13, is 64 less than the ASCII code for ‘M’ which 
is decimal 77. So, to send a carriage return (CR) just enter 
acaret (^) followed by a capital ‘M’. This is a carriage return 
or control M (CTRL-M). 

You will be using the control M extensively while creating 
your autolog files. When you send a line of text, username 
or password, it must be followed by the ENTER key when 
logging on manually. To duplicate this action in your 
autolog files you must send the control ‘M’ which is 
represented by the caret symbol followed by a capital ‘M’ 
as explained above. Just remember to use the SHIFT 6 to 
achieve a caret symbol instead of actually hitting the control 
CTRL key. 

Following my example in Listing 2, you should now be 
able to create your own autolog file for logging onto Delphi 
and accessing the MS-DOS group where you can leave me 
or the PCM staff a message. If you are still having problems, 
then logon manually and leave me a message describing 
your question or problem and I will try to track down the 
answer for you. 

To end and save your new autolog file, you first press the 
FI2 key, after which you will see the filename prompt 
displayed at the bottom of the screen along with the name 
with which you first entered the Editlog section. If this name 
is still the one you wish to use, just hit the ENTER key and 
your file will be saved. If you wish, you may change the 
name of the file before striking the ENTER key. The extension 
doesn't need to be provided in all cases, but if you do, it 
must be .LOG in order for Desk Mate to recognize it as an 
autolog file. 

This ability to change the name of your autolog file before 
saving it back out again allows you to use pieces of other 
files without always having to start at the beginning with 
each new file. You can load any autolog file, change the 
appropriate information and then change the name before 
hitting the ENTER key which will then create a new autolog 
file. 

Now that you have a file created, you will want to put 
it to work. You may invoke an autolog file in two ways. The 
first and easiest way is to select the autolog file as you are 
entering the Telecom section of Desk Mate. This is similar 
to selecting a specific text file before entering the Text 
section of Desk Mate. You just place the highlighter bar over 
the name of the file and press ENTER. You will be taken to 
the Telecom section and it will automatically begin to log 
you onto the service you selected. 

The second way to invoke an autolog file is from the 
Status screen in Telecom. To do this you use the F3 key and 
supply a filename for Telecom to use. When you press F3 
you will again see a prompt for a filename at the bottom 
of the screen and, if you already have an autolog file loaded, 
the existing filename will also be shown. If this is the file 
you wish to use, just press ENTER. Of course, if you wish 


22 PCM February 1986 





to use another file then type in the file name and press 
ENTER. You do not need to include an extension but must 
use .LOG if you do. 

That’s it! If your modem is on and you have done 
everything correctly, the computer and Desk Mate will take 
it from there. As the file is doing its logon, you will be able 
to see the information on screen just as if you were typing 
it in by hand. This is also a good way to spot problems in 
your autolog files. You are able to see exactly where the 
problem is and how to change it if necessary. 

To help you get an idea of some of the different autolog 
files you might create, I’ve included two other listings for 
two additional autolog files. Listing 3 is for logging onto 
CompuServe which you may use if you have an account 
there. Just replace the name and password information with 
the specific information from your account. The final 
listing, Listing 4, is for logging onto MCI Mail. Again, if 
you have an account, use this with the appropriate 
information inserted. If you don’t have accounts at either 
of these services, just use them as a reference when creating 
other autolog files. 

One final note. Remember, you can extend your autolog 
files to take you directly to a section you wish to spend time 
in. For example, if you wish, you may add a couple of lines 
like the following to your Delphi file and have it take you 
directly to the MSDOS group (the hyphen is omitted from 
MS-DOS in Delphi usage) before turning control back over 
to you. 


RECV: you want to do? 
SEND: GROUP MSDOS^M 


You can, of course, extend this even further to take you to 
the forum and begin reading messages. You might even 
consider having these different versions on your disk 
directory under different names depending on what you 
wish to do on each call. One file might be called DELPHI, 
the next might be called DELMSDOS and so on. I'll leave it 
up to you, at this point, to experiment and explore the 
autolog section of Desk Mate. I hope you have fun and will 
stop to say hello to all of us on the MSDOS SIG. D 


HG FS AE cus 


O SENDE OC 

'RECV: User ID: 
SEND: 7 255 
|! RECV: Password: 
iH BIND: dr pa 


SEND: USERNAME 
 RECV: Password: ^C 
SEND: YDURPASSKORD | tH 
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BASIC programming error recognition 


made easier 


Easy Errors 


By John and Aileen Cornman 


ory, BASIC error messages are the 

soul of brevity. Until the two-letter 
codes are committed to memory, all but 
the ubiquitous SN error probably need 
to be looked up each time they occur. 
The experienced user overcomes this 
first difficulty only to encounter a 
second. Now committed to packing as 
many commands into a line as the law 
will allow, the problem becomes one of 
recognizing where, rather that what, the 
error is. 

Memory is indeed a scarce resource, 
especially on, say, an 8K Model 100. 
But to us it seems that the user should 
have a choice about how to “spend” that 
resource. Since both the novice and the 
veteran have their own reasons for 
desiring more help in finding program- 
ming errors, we offer an alternative 
BASIC error handler that will cost you 
between 778 and 1,562 bytes (depending 
on how you choose to set it up). 

Listing I installs a machine language 
error handling program in high memory 
which performs two major services. 
First, it displays a longer, more descrip- 
tive form of the error message. Second, 
it displays the line containing the error 
and, whenever possible, helps you 
locate where within the line the error 
was detected. These two functions are 
performed automatically and in place of 
BASIC’s normal error message whenever 
an error occurs. 

Our alternative error handler can be 
switched on and off at will by means of 
two POKE commands. Because it is 
written in machine language it does not 


E the interest of conserving mem- 


(Aileen and John Cornman live in 
Battle Ground, Wash., where they own 
and operate their own computer busi- 
ness, Structured Software Services.) 


interfere in any way with ON ERROR 
routines which may be included in the 
BASIC program which is being de- 
bugged. 


Installing the Program 

Before running Listing 1, you must 
use the built-in TEXT program to copy 
Listing 3 into your Model 100 as 
HEX .DO. Listing I reads and verifies the 
HEX.DO file while loading the corre- 
sponding instructions into an area of 
protected memory. It checks for invalid 
characters in the file, and whether the 
total of all the characters agrees with the 
pre-determined “checksum” total. If no 
errors are found, ERRORS.CO is created 
and is loaded into its run-time memory 
location. 

No harm will be done if you try to run 
ERRORS.CO from the main menu be- 
cause it is stored with an “entry point 
address” that only causes an immediate 
return to the menu. 

To conserve memory, you may delete 
the loader program, the HEX .DO file and 
ERRORS.CO (after backing them up on 
tape, of course). Once ERRORS has been 
loaded into memory and properly pro- 
tected, it can function without the files 
that were used to create it. 

You may continue to use ERRDRS, 
even though all visible signs of it have 
been deleted, as long as you do not run 
a program or enter a command which 
removes its protection (such as CLERR 
10@,MAXRAM). Once left unprotected, 
you should not try to use the ERRORS 
program until it has been reloaded and 
re-protected or you might end up hav- 
ing to *cold start" the machine, losing 
everything in RAM. 

By leaving ERRORS . CO as a file on the 
menu, you can easily check whether its 
run-time memory area is still protected. 
If you try to run ERRDRS.CO from the 
main menu when its memory area is no 


longer protected, the Model 100 beeps 
before it redisplays the menu. If still 
protected, there is no beep as the screen 
goes blank then returns to the menu 
display. 

Alternatively, if you have deleted 
ERRORS.CO from the menu, you may 
enter the command, PRINT HIMEM. If 
the value returned is 62,181, you can be 
reasonably sure the run-time copy of 
ERRORS is still intact and safe to use. If 
these precautions are not taken, using 
the ERRORS program could produce 
unpredictable results. 


Using ERRORS 

Enter BASIC and load the program 
you want to debug. Add the following 
lines to the very beginning of your 
program: 


1 POKE 63058,230 
2 POKE 63059, 242 


These two commands activate the ER 
RORS program in place of BASIC’s usual 
error routine. You may also accomplish 
the same result by entering the same 
commands in the immediate mode. In 
either case, the ERRORS program is 
automatically “switched off” whenever 
you return to the main menu. 

Once activated, ERRORS reports on 
errors instead of BASIC. For example, if 
you run a program containing the line 


20 IF A=@ THEN B=BStC ELSE B=0 
ERRORS displays 


Type mismatch 
20 IF A=Ø THEN B=B$+C ELSE B=@ 


The underlined portion of the line is 
displayed in the reverse character mode 
(white letters on black background). 
The location of the error coincides with 
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the right edge of the string of reversed 
characters. The actual cause of the error 
may be either to the immediate left or 
to the immediate right of the edge. 

In the example above, the shading 
would divide the line into two parts, 
with the B$ (which is the cause of the 
error) being just to the left of the 
dividing line. You can imagine the 
reversed characters to be like a guage 
that starts at the left of the line and 


extends to the right until the error is 
encountered. 

ERRORS always prints the long error 
message and always displays the line 
containing the error, but it is not always 
possible to determine the exact location 
of the error. Since BASIC does not have 
a consistent way of keeping track of 
error locations, all that can be done is 
to check three of its most popular hiding 
places for the information. As a result, 


ERRORS may sometimes provide only 
rough guidance, and occasionally may 
not be able to give any location infor- 
mation at all. 
Summary 

The ERRORS program provides the | 
beginner and experienced programmer 
alike with significantly more informa- 
tion about the cause and location of 
BASIC errors than is given by the stand- 


ard ROM-based error routine. GRS 


ERRORS Loader KK 
‘wee Structured Software Services *** 
"dte 9233 N.E. 269th Street KK 
txxx Battle Ground, WA 98694 week 


CLEAR 1998,62181:CLS 
DEFINTA-Z:DEFSNG M:DEFDBL C:I=Ø:CS=Ø 
M=62182 

OPEN "HEX" FOR INPUT AS 1:PRINT 
PRINT"Loading HEX.DO into memory..." 
HX$=INPUTS(2,1) 

D$=LEFTS(HX$,1) 

GOSUB 82 

IF D=-1 THEN 68 

DC-D*16 

DS-RIGHTS(HX$,1) 

GOSUB 82 

IF D=-1 THEN 68 

DC=DC+D: CS=CS+DC 

POKE (M+I), DC: I=I+1 

IF EOF(1) THEN CLOSE ELSE 29 

IF CS=85619 AND I-778 THEN 54 
PRINT: PRINT"Checksum error." 
PRINT"Please re-check HEX.DO file" 
PRINT"and rerun Loader with the" 
PRINT"corrected file." 

END 

PRINT 

PRINT"Successful load." 

PRINT 

PRINT"'ERRORS.CO' will be created." 
PRINT 
SAVEM"ERRORS",62182,62959,32755 

END 

CLOSE: PRINT 

PRINT"Non-hex character in HEX.DO:" 
PRINT 

PRINT"pair #";I+1;"reads: ";HX$ 
PRINT 

PRINT"Please correct and rerun.” 
END 

D=ASC(D$) 

IF D>47 AND D<58 THEN D=D-48:RETURN 
IF D>64 AND D«71 THEN D-D-55:RETURN 
D--1:RETURN 
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Listing 2: 


2ATAF6229FFB7CA53GCAØØF322ALFBZASEFB22FØ 
F3E1E522EEF3Ø1Ø9F32A9DFBC3783FC17B4B3272 
F62A9BFB22A3FBEB2A9FFB7CA53CCA2CF322AAFB 
EB22ACFB2AA5FB7CB5EB21A7FBCA3BF3A6C23BF3 
35EBC32BQ8AF7759CDB84B7BFE3BD251F3FE32D2 
53F3FE17DA56F33E39D61B5F21F2F3AF1DCA67F3 
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MEL Feature 1000 


Adding a hard disk and memory — a 
guide for the do-it-yourselfer 


Upgrade Your Tandy 


he Tandy 1000 offers a low- 

| priced alternative to the IBM 

PC. However, one quickly finds 

out that it often needs some extras. Two 

frequently required extras are more 

RAM and a hard disk. This article 

describes how to add these two options 
to your Tandy 1000. 

Memory expansion comes by way of 
a PBJ MFB-1000. This expansion 
board also adds a serial port and real- 
time clock. 

The hard disk added is a 20-megabyte 
QUBIE PC-20. At $599, it is a cost- 
effective way to add a hard disk. The 
drive also comes with some useful 
software for managing files on the hard 
disk. The initial concerns about using 
third-party hardware proved to be 
unfounded. They both work well to- 
gether and with the Tandy 1000. 

PBJ Memory Expansion Board 

PBJ'S MFB-1000 offers a serial port, 
real-time clock, direct memory access 
(DMA) circuitry and memory expan- 
sion of up to 512K bytes. The board 
appears to be well constructed, uses 
quality circuit board material and has 
gold-plated contacts. The fact that it 
occupies only a single slot and is less 
expensive than equivalent Tandy 
boards is also a plus! 

Installation is as easy as opening the 
computer and plugging in the board. 
Installation of the software to access the 
clock is also quite easy. 


(Brian Alsop is an engineer working on 
introducing personal computers into 
the engineering work environment. He 
is a pilot and holds an amateur radio 
operator’s license. 


1000 


By Brian Alsop 


Installing the Memory Board 

Unplug the computer, loosen the two 
front panel screws, slide off the case, 
remove one expansion slot cover plate 
and plug the PBJ board into that slot 
— any slot can be used. PBJ recom- 
mends precautions be taken against 
static electricity in this process. Now, 
attach the single screw to the PBJ cover 
plate to secure the board inside the 
computer. 

The manual explains where to set 
PBJ board switches if less than 512K of 
memory is installed. Mine came with 
the switches properly set. Memory is 
now so inexpensive that it doesn't make 
any sense to get less than 512K with the 
board. Slide on the computer case and 
secure the screws. 

Testing the Memory Board 

Turn on the computer and the 
amount of available memory should 
immediately appear. If it is less than the 
sum of the PBJ board and the compu- 
ter's 128K memory (640K with a 512K 
expansion board), immediately turn off 
the computer and look for switch set- 
ting errors on the PBJ board. If the 
proper memory is displayed, a memory 
check will be automatically performed. 
If no errors are found, the computer 
continues the process of booting up and 
displays an A> prompt. 

Now, one is ready to test and install 
the clock software. Two steps are neces- 
sary. The first requires adding a CON 
FIG.SYS file to the MS-DOS disk. If 
you don’t already have such a file, copy 
PBJ’s from their disk. If you already 
have such a file, add a line saying 
DEVICE = CLOCK.COM to it with 
EDLIN. 


Next, copy the file CLOCK . COM to the 
MS-DOS disk. Reset the system (press 
CRTL-ALT-DEL simultaneously or press 
the red reset button). At the A> prompt, 
type TIME and press ENTER. The system 
will display the time. If it is correct, 
press ENTER, otherwise enter the correct 
time. Now, type DATE and press ENTER. 
Correct the date if necessary. Subse- 
quent resets of the system will not 
require any date or time entries. The 
clock date and time information is 
automatically included in all file saves 
and can be accessed from BASIC and 
other languages as well as most com- 
mercial programs. The unit comes pre- 
tested and it is unlikely that any prob- 
lems will be encountered. However, 
PBJ suggests that problems first be 
handled via the supplier. They also give 
a phone number to use to discuss tech- 
nical problems not resolved with the 
supplier. 

There are some drawbacks to the PBJ 
board. First, it must be used as com- 
munications Port 1, COM1. Any other 
communications expansion board must 
be configured as COM2. The second 
problem lies not with the PBJ board but 
with the Radio Shack-supplied soft- 
ware. 

On IBM equipment, the communica- 
tions port can be configured as a printer 
port with MODE LPT1:=COM1,960@ 
s555P. The last parameter, P, is re- 
quired to prevent the port "timing out" 
between characters or lines. The Tandy 
MODE command doesn't allow such a 
parameter. As a matter of interest, the 
IBM MODE . COM program will run on the 
Tandy 1000. 

To date, I’ve had no difficulties with 
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any software accessing the extra mem- 
ory. Even virtual disk software works 
just fine. An expansion board of this 
nature turned out to be necessary to 
utilize BASIC graphics screen modes 5 
and 6. 

Hard Disk Installation 

Installation of the Qubie PC-20 inter- 
nal mount hard disk is a little more 
complicated than installation of the 
PBJ memory expansion board. I didn't 
consider less than a 20-megabyte drive 
because of my previous experiences 
with IBM PCs. I had a PC XT and filled 
up the 10-megabyte hard drive in less 
than six months. With a 20-megabyte 
drive, I've found that I quickly used 12 
megabytes. The storage use then in- 
creased slowly with time. 

The commercial programs that one 
purchases uses up most of the storage. 
Once you've collected the programs to 
do your job, the remaining storage 
space decreases more slowly. The in- 
structions supplied with my version 
didn't address installation in a Tandy 
1000 — only other IBM PC compati- 
bles. Needless to say, it required a few 
calls to Qubie's technical assistance line 
to accomplish the task. 

Qubie does supply everything that is 
necessary to install the unit in a Tandy 
1000. The assistance line people are 
quite helpful and understanding. 

The installation involves three steps: 
1) Installation of the controller board, 
2) installation of the hard disk and 
3) formatting. Before doing anything, 
make sure the Tandy 1000 is unplugged. 
Don't even think about working on the 
unit with the power cord plugged in. 

Inspect the controller card. Locate 
the EPROM chip. It should have a 
sticker on it. Make sure the label on the 
sticker says Tandy 1000 on it some- 
where. If it doesn't, the controller board 
is for an IBM PC or compatible. Call 
the factory and arrange to get the 
correct EPROM. This problem can be 
avoided by specifying in the order that 
the PC-20 is to be used for a Tandy 
1000. 

Before installing the controller card, 
one must open the Tandy 1000. There 
are two screws on the front panel of the 
Tandy 1000. These must be loosened. 
Remove the cabinet by sliding it for- 
ward. Opening the Tandy 1000 does not 
void the warranty, so you need not wait 
until the warranty expires to do this 
installation. Once removed, locate a 
free expansion slot. The controller 
ribbon cables are long enough to reach 
any slot. I chose the second slot next to 
the PBJ board. 

This is when you will find out the 


26 PCM February 1986 















TANDY computers are created equal. . .all retailers 
are not. 

A good price is, obviously, very important but there are "other important differ- 
ences" which the buyer should be aware of, before parting with any money. A good 
example is "the retailers buy-back policy*"'. to insure the buyer against that ex- 
pensive mistake, *the call free number for easy price comparison and ‘credit card 
ordering for convenience and safety. The price quoted should be *the total price with 
no road-freight charges (to be added later). Under normal circumstances the order 
should be *shipped the next business day and a "same day rush-service" should be 
available. 

* For a small restocking fee. 


CUSTOMER SERVICE/QUESTIONS ABOUT 
YOUR ORDER and in TEXAS 1-817-573-4111 


(9 am-5 pm TEXAS TIME MONDAY-FRIDAY) 


Fort Worth Computers 
377 Plaza 
Granbury, Texas 76048 


NS CALLFREE NUMBER: 









TANDY 1200. -_ 








The fact that the majority of orders are from *repeat-buyers is a strong indication 
of the great satisfaction and trust that our customers feel. However, for those still 
not convinced we offer "references to prove our bona fides and *that the Radio Shack 
warranty and service will be available, to our customers, NATIONWIDE. 

These eight important considerations will be yours when you order from Fort 


FORT WORTH COMPUTERS 
NUMEN BRUN 


(WE ARE SERIOUS ABOUT SAVING YOU MONEY) 
Located 30 miles from Ft. Worth 


1-000) 433-S-A-V-E 





controller card doesn’t just plug in — 
the metal mounting bracket is for an 
IBM and must be sawed off at the 
bottom to fit inside the Tandy 1000. 
Remove the blank mounting bracket 
covering the intended slot. Use it as a 
template to cut the Qubie mounting 
bracket. If you wish to remove the 
Qubie mounting bracket from the con- 
troller board, it is attached with only 
two screws. Pay attention to how the 
bracket is mounted so that re- 
installation will be correct. Mark where 
to cut using the Tandy 1000 blank as a 
template and make a straight-across 
cut. Don’t bother trying to make it have 
a tongue like the Tandy 1000 bracket. 
Re-attach the bracket on the controller 
board. 

Now plug in the board and fasten the 
single attachment screw to secure the 
bracket. This board can only be plugged 
in one way — the correct way. 

Route the cables under the metal 
partition to the area in back of the drive. 
There is barely enough clearance to 
slide the connectors under the metal 
partition. Try various front or back 
locations until the connector makes it 
under the partition. Route the large 34- 
wire cable first. 

The supplied instructions refer to 
switch settings necessary for the con- 
troller and hard disk to work properly. 
These instructions are for the IBM PC 
— ignore them. 

Drive preparation and installation 
requires a little improvisation on the 
Tandy 1000. There are two front panel 
bezels supplied with the hard disk. The 
smaller half-height bezel is used here. 
The instructions tell you to plug the 
indicator light into the two correspond- 
ing pins on the disk drive printed circuit 
board. The picture supplied gives one 
no hint of where they are. Their location 
is shown in Figure 1. The connector is 
not keyed and can be inserted incor- 
rectly, however, incorrect installation of 
the plug does no harm. The indicator is 
an LED and won't light if the plug is 
installed incorrectly. In my unit, the 
plug had a “P7” tag glued to one side 
of the plug. The correct installation in 
my case was with the tag side facing 
away from the PC board. Route the 
wire through the drive front panel 
cutout provided and push the plug onto 
the two pins. Now snap on the front 
cover and make sure all snaps fully seat. 
Route the two ribbon cable plug ends 
so they hang out the front of the com- 
puter where the drive is to be installed. 
The drive goes above the floppy drive. 

Ignore the rest of the supplied in- 
structions in the drive preparation 
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section. They don't work for a Tandy 
1000. Instead, cut a piece of cardboard 
from a box slightly larger than the 
drive's printed circuit board. Place this 
piece on the metal shelf above the 
floppy disk drive. 

Hard Drive — 7 Push the two ribbon cable connectors 
vand M EARS on the back of the hard drive. They are 
keyed and can only be inserted cor- 
rectly. Slide in the hard drive and make 
sure the cardboard spacer doesn't shift. 
Now connect the four-prong power 
connector into the female socket. The 
matching socket is inside the Tandy 
HARD DRIVE 1000 near the back of the floppy drive. 

POSITION This connector is also keyed by shape 
and can't be inserted improperly. 

Now mount the hard drive to the 
Tandy 1000 with the two provided 
screws. These two screws both go on the 
right side of the drive. If you have some 
dexterity, a magnetic screwdriver and 
anextra screw that fits, put athird screw 
into the left-hand side of the drive. This 
is a difficult job to do since it requires 
working through a slot in the drive 
enclosure cabinet. You have to use feel 

Recessed Pins instead of sight. 

Between Drive ad C Location of Dress the drive ribbon cables neatly 

Circuit Board Indicator Light and replace the cover but don't tighten 
DRIVE VIEW WITH FRONT STRUCTURE REMOVED Pins the screws — you might have installed 
the indicator light plug backwards! The 


P3BARBAROSS 


The War in Russia 1941-44 


ARK ROYAL'S most popular Color Computer wargame is now available on 
the Tandy 1000 and all IBM compatibles. Hi-res graphics, 100% ML, Bar- 
barossa is the same game raved about in the RAINBOW and HOT COCO (Jan 
'86), except that the 1000's memory allows room for a host of expanded fea- 
tures. Included are bitmapped logical characters (tanks, infantry, airflottes, ci- 
ties and terrain), normal and Bliltskrieg movement, airstrikes, supply 
consideration, unit detail, group transfer, weather, intelligence, (which even 
tells you which sector your attacking unit is in), patrols, game save and even 
more. $24.95, disk. We pay shipping and handling on all prepaid orders in 
USA. COD charge is $2.50. Personal checks in US accepted with no shipping 
delays. Foreign orders send M.O. in CIS funds. FL residents add 5% sales tax. 


P. O. Box 14806 
Program requires disk, graphics card, 128K. Jacksonville, FL 32238 


(904) 786-8603 
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hard drive installation is now complete. 

Drive initialization cannot be done 
on a Tandy 1000 with the instructions 
or software supplied. Read the direc- 
tions in the instructions anyway to get 
an idea of what has to be done. 

There are three steps. The first for- 
mats the disk with a Qubie program, 
QUBIEFMT. The second step is to parti- 
tion the disk. In practice, the disk could 
be partitioned into separate independ- 
ent areas to accommodate different 
operating systems. Finally, format the 
disk again and copy the "hidden" oper- 
ating system files to the disk. This 
permits booting and startup from the 
hard disk by itself. 

The second and third steps require 
the Tandy 1000 MS-DOS programs 
FDISK and HFORMAT. PC-DOS versions 
will not work with the Tandy 1000 
ROM installed on the hard disk con- 
troller card. My MS-DOS diskette did 
not contain either program. You have to 
obtain them from Radio Shack. I man- 
aged to get them free by going to a local 
Radio Shack Computer Center and 
talking to them. It doesn't hurt if you 
order something (like the Tandy 1000 
Technical Reference Manual) or buy 
something at the same time. While 
you're there get the latest copy of MS- 
DOS and BASIC. Versions generated 
later than June 15, 1985 include a 
number of fixes to BASIC and some very 
useful MS-DOS enhancements. Once 
all the programs are available, follow 
these steps. 

Insert the MS-DOS disk in the floppy 
drive, close the door and turn on the 
computer. The machine will go through 


its startup ritual. 

Insert the Qubie-supplied diskette 
and type QUBIEFMT. The program will 
load and the hard drive light should 
light. This formatting process takes 
over five minutes. If the hard disk 
indicator light did not light, you prob- 
ably installed the indicator plug back- 
wards or forgot to plug in the disk drive 
power cable. Listen to see if the drive 
is operating. The program will complete 
with a message indicating successful 
formatting. 

Re-insert the MS-DOS diskette into 
the floppy drive and re-boot the system 
(CRTL-ALT-DEL keys simultaneously 
depressed). 

After startup, insert a diskette with 
the FDISK, HFORMAT and MS-DOS 
programs into the floppy disk drive. 
Type FDISK and press ENTER. The 
FDISK program will present a menu. 

Select *Create DOS Partition" and 
divide the disk into one partition. 

Next, select the “Change Active 
Partition" option and activate Partition 
l. You must activate the partition to 
permit booting from the hard disk. This 
step to activate the partition is a quirk 
of the Tandy 1000/ MS-DOS version of 
FDISK. It is not necessary on IBM PCs. 

Select the option to "Display Parti- 
tion Data." 

You should see that the disk has been 
divided into only one piece with 611 
cylinders allocated for the partition. 
The status table should indicate that the 
partition status is active (A). 

Exit FDISK with the ESC key and type 
HF ORMRT C : /S^V and press ENTER. This 
program will format the disk and copy 


the hidden and COMMAND. COM file to the 
hard disk. 

You will be prompted for an 11- 
character *volume name." Enter any 
name up to 11 characters. 

If any step along the way fails, try 
going back to QUBIEFMT and repeat the 
process. If it fails again call Qubie. 

Now, turn off the machine, open the 
floppy disk drive door and turn the 
machine on again. The startup ritual 
will begin. This time the unit will go to 
the hard disk for MS-DOS and com- 
mand files. It speeds up the process 
considerably. 

If you forgot to activate the partition 
with FDISK, the unit will not boot up 
from the hard disk and issue a “no active 
partition" error. Go back to FDISK and 
activate the partition. It is unnecessary 
to reformat the disk. 

To see what you have done by all this, 
type CHKDSK at the next prompt. This 
program will return the number of bytes 
of storage available. In my case it was 
21,225,472. All tracks were good. Don't 
expect this to always be the case. Even 
IBM equipment only guarantees 20 
megabytes to be good on their system 
— even though the disk usually has 
more. The extra bytes are a way of 
guaranteeing a high production yield of 
units. 

If all the above processes work prop- 
erly, tighten the screws on the front 
cabinet. 

Qubie supplies a program called 
1DIR with their software. This program 
provides a user interface to the hard 
disk and permits easy creation of files, 
file directories and BAT files. 





Civilize the DISK/VIDEO INTERFACE + MAKE SAVAGE THE MODEL 100 
With DISK-BUDDY software for your DV/I, only function keys need touch your disk files! 


Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that’s just part of 
the power of the DISK-BUDDY PAK. It does 
things you can't: 


* Create "superfiles" the length of the disk, 
over 170,000 bytes! 


* Print out, or display on either screen, or 
copy to disk or other device, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 


* Furthermore, transfer records can be “fil- 
tered", an example: 


An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 


pK Buu Pak (B) L| 


DE RUN d 





Che why COPY RUN NAME KILL EPI EXIT 


records which contain “California” and 
“Tennis” or whatever. Four logical 
modes of search are available. 


eb 


+ Also; Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 

PCM Magazine (March, '85) said: ". . . an 
excellent buy" ... "manual is extremely 
well written" "will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI." PCM] 
That was the idea in the first place. 

TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39.95 plus 
$2.00 postage and handling to the address 
below. (For COD's call: 212-243-2129) 


BuddySystems 


220 West 24th Street 
New York, NY 10011 
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Tandy 1000 Hard Drives 
by Hard Drive Specialist 


Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak" 
multifunction card, or a Tandy Board, Part #25-1004. 


Ordering Information 


Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 





Megabytes for Mini-Bucks 


A Disk System Features: 


10 
20 
42 
10 
20 
42 


All sizes rated after formatting. 
One secondary drive may be added. 


Error checking and correcting controller. 


Software drivers included. 


Buffered seek drives for improved access time. 


Built in power up diagnostics. 
Plated media for long disk life. 
Gold connectors used throughout. 
1 year warranty. 

Boots directly from Hard Drive. 
Uses Tandy 1000 MS DOS. 


Megabyte Internal................ 
Megabyte Internal................ 
Internal. d oec ye n R H 
Megabyte External............... 
Megabyte External............... 
Megabyte External............... 


Megabyte 


Hard Drive Specialist 


16208 Hickory Knoll 
Houston, Texas 77059 
1-713-480-6000 


Order Line 
1-800-231-6671 


Because of a hard disk's enormous 
volume, it is useful to divide its contents 
up into separate directories. Think of a 
directory as a drawer in a file cabinet. 
Put your files into directories like you 
would put documents in a file drawer. 
Group them logically, such as word 
processors and associated files in one 
directory, BASIC programs in another, 
etc. While programs in one directory 
can access those in another, it requires 
a special path designation to be in- 
cluded with the filename. 


One word of caution: With the new 
BASICA fix to GW-BASIC supplied by 
Tandy, the usual PATH C:\ inserted in 
the AUTOEXEC.BAT file on startup, does 
not find BASIC.EXE. Therefore, you 
must put BASIC.EXE in the directory in 
which BASIC programs are executed. I 
hope Tandy re-writes their BASICA.COM 
file to eliminate this glitch. It’s bad 
enough that BASIC occupies 70K of 
RAM instead of being in ROM. To 
require it to be in every directory that 
BASIC is used adds insult to injury. 


Speed Comparisons 

To satisfy my curiosity, I did a 
number of speed comparisons between 
the upgraded Tandy 1000 and other 


computers. The computers compared 
included the IBM PC XT, IBM PC AT 
and the Tandy Color Computer. BASIC 
was used exclusively. Table I shows the 
results. 

As one can see, there is precious little 
difference between the Tandy 1000 and 
PC XT. The Color Computer is also 
very close to matching the Tandy 1000 
and PC XT, and is even faster for some 
math operations when operating in its 
high speed mode. The PC AT is about 
2.5 times faster for most operations. 


ularly rigorous, indicate that you don’t 
replace a Color Computer with a Tandy 
1000 or PC XT just for speed. Note the 
math operations are done in BASIC and 
do not use the 8087 or 80287 math co- 
processor chips. These chips, when 
added to the PC XT and PC AT with 
appropriate software, speed up math 
operations five to 20 times. The one 
thing missing from the Tandy 1000 is the 
ability to install such a co-processor. I 
would be eternally grateful to someone 
who writes an article describing how to 
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Discover What 10 Software Insiders Already Know! 
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1 "...a little company that has succeeded over the last 
e five years in giving its customers a lot of value for 
their money ...’’ — Richard O'Reilly, computer columnist 


2 "All the firm's programs are graced with features that 
e the entire industry should be required to provide. 
Their manuals are the most honest in the industry." 


— T.R. Reid, syndicated computer columnist 


3 " .. . the two most important attributes of Software 
e Toolworks’ rape they're priced low, and they 
work well." — ashington Post 


4 “Unlike the software of many publishers these days, 
e none of The Software Toolworks programs are 
hobbled by copy protection, nor does the company try to 
tie up its customers with mumbo-jumbo licensi 
agreements..." — The Los Angeles Times “Computer File" 


5 “I don't know how The Software Toolworks stays in 
ə business charging such low prices for such nifty 
products..." — David Gerrold, computer columnist and 
noted science fiction author 


Reading Professor — Boost your penes speed while increasing 
comprehension and retention. Self paces lessons show quick 
improvement with immediate feedback. Includes 48 practice reading 
passages and other exercises. Developed by skilled educators, this 
program tracks your progress and monitors reading rates up to 
2,500 wpm. Additional libraries available for Junior High, College 
Adult, and Professional levels at $15.95 each. For IBM PC, most 
CP/M-80 computers. — $59.95. 


TO ORDER CALL: 1-800-223-8665; in CA 1-800-228-8665 


“The Software Toolmørks" (eoten) MBE ("| 


14478 Glorietta Drive, Sherman Oaks, CA 91423 


U.S. and Canada add $2.00 per order s/h. Overseas orders add $5.00 per order. 
CA residents add 6.5% sales tax. Orders shipped UPS. Dealer inquiries invited. 
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6 The Software Toolworks C/80 compiler is “‘.. . the best 
ə software buy in America..." — Microsystems 


T "It would be the best of all possible worlds if some 
+ magic diskette could be made that would transform 
any hardware in such a way as to receive The Software 
Toolworks' numinous software." — Wm. F. Buckley, Jr. 


8 "The Software Toolworks has a whole raft of 

* programs that work, and (the company) sells them for 
reasonable prices. I strongly recommend that you get their 
catalog." — Dr. J Pournelle, computer columnist 
“Byte” and noted science fiction author 


9 "One of the original pioneers in low cost, high quality 
e Software, The Software Toolworks publishes over 50 
solid products in MS-DOS and CP/M for under $60.” 

— Walt Bilofsky, chairman of The Software Toolworks 


10 “All products are shipped within 24 hours, come 
e with a money back guarantee, and free technical 
support is available (though you'll hardly need it).”’ 

— Joseph Abrams, president of The Software Toolworks 


Mychess — Award-winning world class chess eve featuring 


nine skill levels and over 850 opening moves. ts moves and 
saves T pee in progress. Outstanding graphics display board on 
IBM and most popular CP/M computers. — $34.95 

Eliza — The pioneering artificial intelligence program, Eliza is a 
"psychiatrist" that carries on a conversation in plain English. Use 
authentic script, expand it or develop your own. CP/M and MS-DOS. 
— $24.95 


The Original Adventure — Explore the dangerous Colossal Cave for 
treasures. Endure mystical spells, overcome adversaries. The only 
official version, uncut, and endorsed by its creators, Crowther and 
Woods. CP/M and MS-DOS — $19.95 


Computer Chef — Original computerized cookbook and recipe file. 
Data base of over 70 recipes with space to add your own. Scale 
ingredient quantities, search recipes by keyword, then display or 
Een m E Additional recipes available. CP/M and 





TANDY IS DANDY... 


...until you want more memory 


Your Tandy 1000 is a good machine. But, now there's another way to upgrade 

A lot of computer for the money. your memory. The Zuckerboard 
Expansion Memory card. A high quality, 

But you need to add more memory to reliable board at a very reasonable price. 

get the best performance possible. 

Tandy wants a lot of money for that. So, if you want to get the most out of 

Too much money. your computer, you have a choice. 


You can go to Tandy, and Tandy will get 
the most out of you. 






Or, you can come to us. We'll fill up your 
computer without emptying your wallet. 


er: 
Configuration | Memory Plus Memory 
with OK 
with 256K 
with 512K 
Clock Option 
Warranty 













N/A $ 69 
$319.95 $109 
$519.90 $149 
$ 99.95* $ 39 
90 Days 2 Years 













sN ` CALL TOLL-FREE TO ORDER 








dX (800) 624-4920 
gel CA (800) 458-6200 















*with mouse 


Dr. Dr. Zucker 





it’s another 


ZUCKERBOARID 


QTD 1287 Lawrence Station Road « Sunnyvale, CA 94089 + (408) 734-4631 





ZUCKERBOARD is a Trademark of Advanced Transducer Devices, Inc. 
Tandy 1000/1200 are Trademarks of Radio Shack, a Division of Tandy Corporation. 


WERE BRINGING THE TANDY 





PCM and the Delphi Information Util- 
ity have joined together to allow 
Tandy MS-DOS owners all over the 
world to connect with one another! 


Delphi is a full-service information 
utility. It offers everything from up- 
to-the-minute news stories from The 
Associated Press to electronic mail 
services. But, best of all, it now has 
a special forum for owners of MS- 
DOS computers, and it's operated 
by the people who bring you PCM 
each month. 


The MS-DOS Special Interest Group 
(SIG) features a variety of services, 
including an open forum where you 
can send and receive messages 
from Tandy owners all over the 
world. It also has databases for ex- 
changing programs, where you can 
upload your favorites and download 
programs written by other Tandy 
MS-DOS enthusiasts. 







When setting up your account with 
Delphi, if you do not have a credit 
card or prefer not to use it, Delphi 
requires that you send $20 to give 
your account a positive balance. This 
will be refunded after your first free 
hour if you choose to no longer use 
the system or it will be applied to 
future connect charges. 










The MS-DOS SIG's conference fea- 
ture allows you to meet electroni- 
cally with other members of the 
Tandy Community. You can join 
conferences with many notables in 
the world of MS-DOS on a regular 
basis. Conference schedules will ap- 
pear in PCM each month. Be sure to 
check online announcements for 
changes and additions. 


On Delphi, You can renew your PCM 
subscription, make a fast and easy 
order for software or hardware from 
a multitude of vendors, or inquire 
about products on the MS-DOS 
SIG. 


We also have a number of programs 
that you can download and use, just 
for the cost of the time you spend 
transferring them. There'll also be 
corrections for PCM articles, helpful 
hints and many other useful fea- 
tures. 


PCM is offering subscribers a free life- 
time subscription to Delphi — a 
$29.95 value — and a free hour of 
connect time — a $6 value at either 
300 or 1200 Baud during evening, 
holiday and weekend hours — so 
you can sample Delphi and the 
brand new PCM MS-DOS SIG. That's 
right. Your subscription to PCM en- 
titles you to this $35.95 value as a 
free bonus! 


If you're not a PCM subscriber, just 
enter your order when you sign on 
with Delphi and you'll get the same 
great deal! For our $28 subscription 
fee, you'll get the finest Tandy com- 
puter magazine ever, a free lifetime 
subscription to Delphi and a free 
hour of connect time. 


Want to save an extra $15? While 
you're online, you can order the Del- 
phi Handbook and Command Card 
($21.95) and three hours of connect 
time ($18) for only $24.95. 


Delphi provides us all with Imme- 
diate Tandy Community. Check it 
out today. After all, you can sample 
it for free! 


Problems? Call Delphi at 1-800-544-4005. 





DELPH 


FIFE: 
GROUP MSDUS 


COMMUNITY TOGETHER! 


There are several ways to connect to Delphi and 
PCM's MS-DOS SIG. In most cities you will not even 
have to pay long distance charges; you can use special 
data communications networks, like Uninet, Tymnet 
and the Canadian Datapac network. 

First, set your terminal program to operate at either 
300 or 1200 Baud (depending on the modem you have), 
and also select either 7 bits with even parity or 8 bits 
with no parity, and 1 stop bit. (If one combination 
doesn't work, try another.) 

Decide which network you should use. There is no 
surcharge for Uninet or Tymnet. Canadian residents 
using Datapac will be charged an additional $3 (U.S.) 
per hour. 

On Uninet: Call (800) 821-5340 to get the Uninet 
number for your area. After you call the appropriate 
number for your own area and make connection, press 
ENTER, the period key (.) and ENTER again. At the 
“service:” prompt, type GVC (for General Videotex 
Corporation) and ENTER. 


On Tymnet: Call (800) 336-0149 to get the Tymnet 
number for your area. After you dial your designated 
number and make connection, simply press *A' no 
matter what appears on the screen. When "please log 
in:” appears, type DELPHI and press ENTER. 


From Canada (on Datapac): Call Delphi Customer 
Service at (617) 491-3393 to get the Datapac number 
for your area. After you connect, press the period key 
(.) and ENTER (use two periods if you’re using 1200 
Baud). Type SET 2:1, 3:126 and press ENTER. Now 
type p 1 3106, DELPHI; and press ENTER. Delphi will 
bill you an additional $3 (U.S.) per hour for Datapac 
connection surcharges. 

From other countries: Many countries have their 
own data networks that can connect to either Uninet 
or Tymnet. Check with the telephone authorities in 
your country for details on how to sign up for this 
service. When you have an account set up, you can 
reach Delphi with a “host code” of 312561703088 
through Uninet, or 310600601500 through Tymnet. 
(You'll have to pay the toll charges for this connection.) 


Type in Your User Name 

If you're already a subscriber to PCM, at the “USER- 
NAME:" prompt, type PCMSUB and press ENTER. At the 
“PASSWORD:” prompt, type your individual sub- 


scription number from the mailing label of your latest 
issue of PCM. (If there are one or more zeros at the 
beginning of this number, include them.) 


If you don't already have a subscription, at the 
"USERNAME:" prompt, type PCMORDER and press 
ENTER. At the *PASSWORD:" prompt, type SENDSUB 
and press ENTER. Have your MasterCard, VISA or 
American Express card ready, because you'll be led 
through a series of questions that will enable us to put 
your PCM and Delphi subscriptions into effect. In an 
effort to hold down non-editorial costs, we do not bill 
for subscriptions. 


If you make a typing error, just press ENTER and start 
over. Remember that at any point, when you're on 
Delphi, you can type HELP to get help on how to use 
the system. To get off the system just type BYE. 

If you find that you're unable to log onto Delphi and 
enter the MS-DOS SIG after following these instruc- 
tions, call us during afternoon business hours at (502) 
228-4492. We'll be glad to offer assistance. 


Come Visit Us! Type: GROUP MSDOS 

After you sign in, you'll be prompted to set up your 
own, personal *user name" — Delphi is a friendly 
service, no numbers to remember — and you'll be asked 
a number of questions so Delphi can set up your 
account. You'll also be assigned a temporary password. 
No time is assessed against your free hour of service 
while you answer these questions. 

Delphi will tell you that your account will be ready 
after 6 p.m. the same day if you sign up before noon 
(Eastern time zone.) If not, your account will be ready 
at 6 p.m. the next day. Once an account is opened, each 
PCM subscriber will be credited with an hour of free 
time! 

When you log back in, use your chosen user name 
and your temporary password to access the system. At 
that point, you will meet Max, who will help you 
configure things and will change your temporary 
password into your own personal password. This is the 
password you will use for subsequent sessions — or 
until you change it. Again, there is no charge for the 
time you spend configuring your account. Your hour 
of free time starts after Max bids you goodbye. 

You'll wind up at the Delphi Main Menu; type in 
GROUP MSDOS and join us on the MS-DOS SIG! 





MEI hore All Computers 






















t's a typical SE morning in Chicago. The ther-| ` 
post by the kitchen window tells you the outside 
NOS temperature is a normal 35 degrees, yet when you step! ` 

CS out the door, dressed for 35-degree weather, the brisk winds k. =` 
BJ off the lake make it feel like 10 below. This effect, of course, 
SS is called “wind chill" — something you've no doubt heard 
SEN mentioned on the 5 o'clock news weather report many times. | , 
SSS If you know the outside temperature and wind speed, you | : 
; & can use this program to help you know how to dress and | > 
ON what to expect when you leave your warm home behind — 
I if you even want to leave home. 
This BASIC program adapted from a program by Stanley |. 
= Kendall will run on the Tandy 1000, 1200, 2000, 3000, 100 |. 
I and 200 (just about any computer that uses Microsoft | — 
| BASIC). If you have a Tandy 600 with the optional BASIC | - 
ROM installed, you will also be able to use the pro- fz - 

































Pr mar 
NET BAR CODES LITING 
rer LLL ETT EET ELE ELLE TNT 1 


The listing: 

19 CLS 

29 PRINT ">>> Windchill Calculator >>>" 
39 PRINT 

49 LINE INPUT "Temperature (F): ";T$:T= 
VAL(TS) 

5% LINE INPUT "Wind speed (MPH): ";V$:V= 
VAL(V$) 

69 IF V«4 THEN W-T:GOTO 199 

78 B=1Ø.45+6.686*SQR(V) - .44*V 

8Ø C=33-5*(T-32)/9:D=33-B*C/22.Ø34Ø5 

90 W=D*9/5+32 

19% PRINT USING"Windchill: THERE HEN 
;W 

11g PRINT 

129 LINE INPUT "Another? (Y/N) ";A$ 

13g AS=LEFT$(A$,1):IF A$="Y" OR AS="y" T 





It's the Holmes Engineering/PCSG “chipmunk” 







Uses the main menu concept. You see the 
disk directory instantly, arranged on your 
M-100 screen like your main menu. Just move 
the widebar cursor and transfer files with a 
function key. You can run a file directly from 
the diskette with the ENTER key. Uses 3^" 
microfloppy diskettes that have a rigid plastic 
casing and a metal core. They're tough and 
nonflexible. You can carry several in a shirt 
pocket without damage. There's 358K on a 
diskette. Ten of these in your briefcase and 
you've got 3» megabytes. 

Drive weighs only three lbs. and it works 
directly from the 110 outlet and recharges at the 
same time. It recharges in six hours with 
thousands of pages transferred between 
charges. It's compact, with dimensions of 24" 
x 5%" x 7.5"; and fits easily into your briefcase 
along with your Model 100 or 200. 

Machine code programs, BASIC pro- 
grams, Lucid files and documents all are saved 
and retrieved with no protocol- instantly, ready 
to run. 

In a special association, Holmes En- 
gineering and PCSG have worked together 
combining the hardware knowledge of Holmes 
and the software expertise of PCSG. The re- 
sult is a product that can only be regarded as 
excellent. 





You see the disk directory 
instantly; works just like the 
main menu 





Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 


ASK ABOUT 
BUDGET MODEL 


$399. 57 


gr 


Database — The portable disk drive stores 
your mailing list, inventory items, part #s and 
descriptions or any other data that you need 
to recall. 





358K on a diskette 





Invoice (purchase order)— At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort — This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface — If you are a user that 
likes to access other computers or databases 
(for example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive. You can automatically download 
and upload information onto the diskette. 

Calendar — Everyone who has seen this 
program has said, "This is the first calendar/ 





Includes a library of 
six powerful programs 


for the Model 100/200 
NEW LOW PRICE 






$499. 


diary/scheduler on any computer any where that 
I can use. It is so functional.” 

The calendar program is usable for two 
reasons, first it is designed correctly, and 
second you have the memory (358K) on the 
diskette to log and access a tremendous amount 
of notes over a long period of time. 

Personal Finance Manager — This 
wonderful program truly lets you keep track of 
your finances. 

All your records are kept on the diskette. 
Bank accounts (checking and savings) and 
charge accounts such as MasterCard and Visa. 

We at PCSG believe we have the ultimate 
Model 100 system, the Portable Disk Drive 
plus the Lucid spreadsheet on snap-in ROM, 
Write ROM word processing and the new 64K 
RAM expansion now available from PCSG. 

We want you to find out for yourself at no 
risk. If you aren't totally satisfied within 30 
days, simply return the disk drive for a full 
refund. Priced at $499.00 , including the soft- 
ware library. MasterCard, Visa, COD. 


ORIABE — 
COMPUTER _ 
URORT 


OR DRAE 
1-214-351-0564 


11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 


N PCSG offers a 30-day/money-back trial! SONN 


CHRONO E 





Delphi Bureau 


By Kevin Nickols 
MS-DOS SIG Manager 


elcome to "Delphi Bureau,” a new column where 
W:: will keep watch on PCM’s newest effort to get 

information to our readers about the Tandy 
computers. The Delphi MS-DOS SIG is a new group and 
we still have a lot to learn about it ourselves. But we have 
more than 1,200 members already and are getting more and 
more services installed. The MS-DOS SIG will be an 
important extension of the magazine to us all as we learn 
to use and enjoy our computers. 


Delphi is designed to be self-explanatory. When you first 
sign on, you will find it to be “menu intensive.” This means 
that at each prompt, everything you can do is precisely 
displayed for you on the screen in a menu in plain English. 
This is known as “prompt level three.” It makes learning 
the commands very easy. Once you have become familiar 
with the commands, you can switch to one of two other 
prompt levels. Level two (/P 2) does not display a menu, 
but lists the options on the prompt line. Level one (/P 1) 
is for the experienced users. It gives only the prompt, and 
greatly increases the speed at which you move around in 
Delphi. 

Another feature that saves time is the ability to use 
abbreviations. To initiate any command, you just have to 
enter the fewest number of letters that makes your choice 
clear. For example, if you reach the MS-DOS SIG from the 
main menu, you can just type G MS instead of GROUP MSDOS. 
Most of the time only one letter is required. When more 
than one command begins with the same letter, you will 
need to use two or three letters. 

At almost every prompt, typing HELP brings up a detailed 
help file with the available options. In some cases, typing 
a question mark (?) will serve the same purpose. You may 
also type HELP OPTION, where OPTION is the function you 
want help with, and receive data on that particular subject. 

Better still, when you need help, I and many other people 
who help put PCM together will be there online to answer 
your questions. We may be contacted easily by leaving a 
message in the group Forum area, through the electronic 
mail service, and can even be paged and called into 
Conference for a little personal conversation. Some of the 
usernames that you can address messages to are: 
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NICKOLS — Kevin Nickols, MS-DOS SIG Manager 

DANNYDOS — Danny Humphress, PCM Managing 
Editor 

LFALK — Lonnie Falk, PCM's Editor and Pub- 
lisher 

JIMREED — Jim Reed, PCM’s Editorial Director 


BOBBYBALLARD — Bobby Ballard, PCM's DeskMate Ex- 
pert 

All of us will be more than happy to help in any way we 

can. Keep an eye out for us with the WHO command (which 

shows who is on the system at that time) and say hello. 


Delphi employs the Xmodem protocol for program 
downloading, a very popular eight-bit, error-checking 
transfer protocol. Many of the terminal packages on the 
market today support Xmodem. Unfortunately, Desk Mate, 
which many of you may be using as a terminal program, 
does not. But that's no problem. There are several “Free- 
ware" terminal programs available in the MS-DOS SIG's 
database that can be downloaded and used in the future 
when you wish to download other programs. 

Another thing I’d like to mention is that you have a choice 
between two editor utilities on Delphi. The default editor, 
automatically assigned to new users, is the powerful DEC 
EDT editor. But EDT is also a complex editor to use. If 
you're familiar with FILGE (file generator), CompuServe’s 
editor, we are able to set a FILGE-like editor for you to 
use on Delphi. All it takes is a note from you in the Forum 
or in Mail indicating your preference. OLDIE, as this editor 
is called, is easy to learn and use. 

On the following two pages we have reproduced a 
modified version of the Delphi Command Card, with their 
permission. This card may be removed from the magazine, 
folded, and kept near your computer as a handy reference 
to the commands available in the group. 

That's *Delphi Bureau" for February. Next month, we'll 
take a look at how to upload and download files from the 
MS-DOS SIG. If you, for some reason, have been unable 
to join us, see Page 34 for complete instructions. The life- 
time membership and the first hour of service is entirely free, 
so sign on and check out the service. I think you'll be glad 
you did. m 
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A joint PCSG/CRYPTRONICS project. 


Now you can access LUCID, DISK +, 
WRITE ROM, RAM+ and others 
instantly. 

The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100's ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 


The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you've seen. The ROM BANK 
itself is only about 12" deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 


Change from ROM to ROM with the 
touch of a thumb switch. 


You can go from LUCID to WRITE to 
DISK-- to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 


What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Model 100 with just 6 hours of recharge. 
What's nice is that it recharges right from 
your Model 100's power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 


PORTABLE COMRUTER SURORT ORQUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 
VISA / MASTER CARD / AM. EXP. / C.O.D. 


battery pack that gives 


plus powerful Nicad 
30 hours of power 
to your Model 100 





Suddenly, the Model 100 is a very 
powerful computer. 


If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK + in the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It's all available only from 
PCSG. 


As usual we don't want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, AM. EX. or C.O.D. 


1-214-351-0564 
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The difference is power 
...and affordability. 


affordable alternative to the 

IBM® PC/AT. Here's the power 
you need to manage your business, to 
network computers, or to create a 
multiuser system. 


[ee the Tandy 3000, the 


Unmatched compatibility 

The Tandy 3000 uses the advanced 
MS-DOS 3.1 operating system. And 
since the Tandy 3000 is compatible 
with programs designed for the PC/ 
AT, as well as the PC/XT, it cuts 
through today's software confusion. 
Choose from advanced word- 
processing packages, database man- 
agement and powerful accounting 
software. 


Power to share 

The Tandy 3000 is also designed to 
use the forthcoming XENIX 5.0 mul- 
tiuser operating system. Two to six 
people in an office can use the 3000 
simultaneously with low-cost data 
display terminals. 



























In offices already equipped with 
MS-DOS computers, the Tandy 3000 
is the link that brings them all to- 
gether. Using our ViaNet local area 
network, the Tandy 3000's high 
speed is available to all network 
users. The Tandy 3000 is your afford- 
able solution for office automation. 


Designed for High 
Performance 

The Tandy 3000 
comes with an 80286 
microprocessor for the 
ultimate in speed and 
performance. Its 16-bit 
architecture operates 
at 8 megahertz— twice 
that of the industry 
standard. 


The Tandy 3000 comes with one- 
half megabyte of main memory 
(512K RAM). This memory can be 
expanded to 640K without using an 
expansion slot. Total internal memory 


can exceed an astounding 12 mega- 
bytes (under XENIX). 


As for storage, the Tandy 3000 
(25-4001, $2599) is equipped with a 
high-capacity, 5'/4” slim-line floppy 
disk drive. For the utmost in compat- 
ibility, this drive can read 1.2-meg 
and 360K formats for use with any 
IBM PC diskettes. 


For maximum storage capacity, 
choose the Tandy 3000 HD (25-4010, 
$3599) with a built-in 20-megabyte 
hard disk drive for fast access to vol- 
umes of data. 


Both versions of the Tandy 3000 
feature a built-in real-time clock for 
time-sensitive applications and a 
serial/parallel interface. 

The Tandy 3000 has ten expansion 
slots, including seven IBM PC/AT- 
compatible slots, two PC/XT- 
compatible slots and a PC/XT- 
compatible half-slot for the serial/ 
parallel interface board. 


Tandy...Clearly Superior™ 

High performance, compatibility, 
multiuser and networking capabili- 
ties, and remarkable expandability: 
the Tandy 3000 has the power to 
put you in command. 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


Radie Shaek 


COMPUTER CENTERS 


A DIVISION OF TANDY CORPORATION 


F TE SE FE FE Sd pim "3 
Send me a Tandy 3000 brochure. 


E 
t Dept. 86-A-992, 300 One Tandy Center 


Fort Worth, Texas 76102 
H Name d 
H Company eee i e i H 
t AÓdreUa LL. ÉD Mais i i 
Dy — SS M 
DS. LL rc NE EEE i 
Phone 


lbs si me mmo omoi e 


Prices apply at Radio Shack Computer Centers and at participating stores and dealers. MS-DOS and monitor sold separately 
IBM/Registered TM International Business Machines Corp. MS and XENIX/TM Microsoft Corp. ViaNet/TM VIANETIX. 


II DOS Boot 


A tour of the MS-DOS 


compatibility bridge, ANSI.SYS 





1000/ 1200/ 2000/ 3000 


What is ANSI.SYS? 


ave you noticed that some soft- 
Hee uses ANSI . SYS and insists 

that you must install a special 
command in your configuration file? 
Ever wondered why they use this pro- 
gram? I am going to delve into this 
mysterious and powerful utility which, 
unfortunately, lacks a great deal of 
documentation. 

Last month, I showed you how to use 
direct memory accessing to really “jazz” 
up your programs. This works great if 
you will always run it on similar ma- 
chines. If you want to make it compat- 
ible with most IBM PC compatibles, 
you can use the ROM BIOS video 
interrupt calls to handle all input and 
output for your program. The degrada- 
tion in performance is noticeable. 

If you decide to make your master- 
piece compatible with all MS-DOS 
computers, you must resort to perform- 
ing all of your video and keyboard 
accesses via standard operating system 
functions. Unfortunately, these MS- 
DOS functions do not provide adequate 
services such as positioning the cursor, 
clearing the screen and others. Here’s 


(John B. Harrell, III has written for 
microcomputer magazines for three 
years. He holds a bachelor's degree in 
computer science and is a software 
technical expert for Navy electronic 
support measures systems.) 
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where RNSI.SYS enters the picture. 

ANSI.SYS is a program file that is 
loaded when the system is initialized. 
The command in your CONFIG.SYS file 
(DEVICE=ANSI .SYS) tells the system to 
load this utility program and execute 
the initialization code. This code links 
the ANSI.SYS code into the system’s 
video and keyboard drivers and then 
terminates, leaving ANSI.SYS installed 
as a part of the operating system. 

The ANSI.SYS driver contains many 
special features that enable you to 
perform just the functions you need. 
This driver allows you to change graph- 
ics modes, set and reset colors, reposi- 
tion the cursor and redefine any key on 
your keyboard! 

You cannot use these function code 
sequences from the BASIC interpreter or 
compiled BASIC code. You must use the 
specified MS-DOS functions, and 
BASIC bypasses the MS-DOS system to 
perform direct screen and keyboard 
handling. Even if you program only in 
BASIC, read on! There are several other 
ways to use this mysterious program 
and I am going to explain them. 


Extended Screen and 
Keyboard Control 

Figure 1 contains a list of the ex- 
tended screen and keyboard control 
sequences specified for the IBM-PC and 
most compatibles. These codes even 
work with the really incompatible com- 


puters such as the Zenith 100 and the 
Wang PC. Computers that do not im- 
plement a BIOS similar to the IBM-PC 
usually provide their own BIOS func- 
tions that use a superset of the ANSI 
control codes. Look in your computer’s 
DOS reference manual if you are not 
sure. 

While you study Figure 1, let me 
stress one item. All of the codes used in 
these ANSI control sequences are 
ASCII characters. Specifically, this 
means that numbers must be passed as 
an ASCII character string; for instance, 
the number 12 must be contained in the 
control sequence as the character ‘1’ 
followed by the character ‘2’. This is an 
important concept. 

Looking at Figure 1, you will notice 
there are several different cursor posi- 
tioning commands. The “Cursor Posi- 
tion" command moves the cursor to the 
specified row and column. The default 
value for omitting a parameter is ‘1’, 
and omitting both parameters will 
*home" the cursor to the upper-left 
corner of the video. The “Horizontal 
and Vertical Position" command dupli- 
cates this command. 

ANSI.SYS also provides commands 
(Cursor Up, Down, Forward and Back) 
that allow you to move within the 
column or row without having to spec- 
ify extra information. Asin the previous 
command's discussion, the default 
value of an omitted parameter is ‘1’. 


The next two commands, “Cursor 
Position Report" (CPR) and "Device 
Status Report" (DSR) work together. 
Issuing a DSR sequence will cause 
ANSI.SYS to respond with a CPR on 
the MS-DOS standard input device. 
This is the sequence that must be used 
to read the current location of the 
cursor. For example, if the cursor is 
currently located in Column 30 of Row 
12, issuing a DSR sequence will return 


the following sequence of characters to 
the input device: ESC[ 12; 3ØR. 

The *Save Cursor Position" and 
"Restore Cursor Position" commands 
can be used to real advantage. The save 
command sequence causes ANSI .SYS to 
save the location of the current cursor 
internally. You may then reposition the 
cursor and perform any operation on 
the video. You have only to issue the 
restore command sequence to return the 


Figure 1 | 


ANSLSYS Control Sequences 


Command Codes 


Function of Command 


cursor to its exact starting location. I'll 
present a detailed example of this later. 

The *Erase in Display" command is 
the equivalent of the BASIC CLS state- 
ment and will clear the screen and leave 
the cursor in the home position. The 
"Erase in Line" command will erase 
from the current cursor position to the 
end of the line. 

The “Set Graphics Rendition” 
(SGR), “Set Mode” (SM), and “Reset 


ESC[H; HH 


ESC[t;Hf 
ESC[ HA 


ESC[ H8 
ESC[ HC 
ESC[HD 


ESC[ HHR 


ESC[ Sn 


ESC['S 
ESC[u 
ESC[2J 


Move the cursor to the position indicated by the row and column (H; d) parameters. 
Both parameters default to 1" if omitted. ; ; 
Horizontal and vertical position — same as above. 


Move the cursor up 'H' rows (default 1”) without SASH the column: location. Iti 18 i 


ignored if the cursor is at the top of the screen. 


Move the cursor down ‘#” rows (default *17) without changing | the column location. jt 


is ignored if the cursor is at the bottom of the screen. 


Move the cursor forward “#’ columns (default *17) without: changing the row location. jo 


It is ignored if the cursor is at the right edge of the screen. d 
Move the cursor back ‘H#” columns (default 1”) without changing the r row location: It i 
is ignored if the cursor is at the left edge of the screen. H 


Specifies the format for the Cursor Position Report. issued in response | to a Device: RA t i il 
Sequence (see below). The information is reported via the standard input device. The Hn 


first parameter specifies the current line and the second parameter is the column. i 
Issues a Device Status Report to the console driven and ihe heiss a Cursor Position Report: i 
in reply (see above). i 
Internally saves the cursor position. 

Restores the cursor position saved with je previous command; 


Erase in Display command — clears the screen and homes the cursor m the upper left lt Hi 


corner. 
ESC[2K 
ESC[H; 00 54m 


issued: 


Parameter 
Ø All attributes off (black on white) 


Erase in Line command — erases the current line from the cursor - position. i 
Set Graphics Rendition (SGR) — sets the character attribute specified by the parameters | Hitt 
as listed below: These attributes will remain in effect until the next SGR AR NT is: 


Meaning 
Bold on (high intensity) 


Blink on 
Reverse video on 


8 Canceled on (invisible characters) 


30 Black foreground 

31 Red foreground 

32 Green foreground 

33 Yellow foreground 

34 Blue foreground : 

35 Magenta foreground 
mau Cyan foreground 

37 White foreground ` 
40 Black background © 
41 Red background 

42 Green background 
43 Yellow background. 
44 Blue background 

45 Magenta background 
46 Cyan background | 

4? White background 


Underscore on (monochrome only) :: 
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TRS-80 Model 2000 by Tandy” MS-DOS Based 


Computer System 


250 MOD T2090 HD 2 DR: cy gcs 12i serere. 1499.00 
128K MOD 1000 W/MONO 1 DR. ............. 779.00 
128K MOD 1000 W/COLOR 2 DR. ........... 1119.00 
256K MOD 1000 W/HARD DISK 

24K MOD 100 PORT 

24K MOD 200 PORT 

64K MOD 4D 2 DR 

DIR MOM BOOT ZDR: 35.2655 eorr nnns a 3099.00 
512K MOD 6000 w/15MEG HD 

15 MEG HARD DISK 

35 MEG HARD DISK 

DMP 105 PRINTER 

DMP 2200 PRINTER 









































PARALLEL PRINTER CABLE 
DISK VIDEO INTERFACE 
32K MOD 600 PORTABLE 
512K MOD 3000 


100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 


(817) 825-4027 


NOCONA ELECTRONICS . Box 593 + NOCONA, TX 76255 











d asco Hu 


dis ESC ts 8i. ASHE A attr í 7 
HH URSO "string p: pH HH: 
0 amy combination 
of strings and ii. 
decimal numbers 


E SS 


H Í Kúla gi eee Í 





He idae HAL 
| Continued | 





Re Mode ØRE Hi “Invokes the: screen | Width or type specified by 
ds dd j 


"Meaning . i 
i (49. x 25 black. and white 
40x25color 0000 
0080 25 black. and white. 
HL ROX 25 color ': i 
(0:320 x 200. ale graphics” | 


:640 x 400 color graphics i: 


0320 x 200 black and white raphies 
0 640:x 200 monochrome graphics ' 
(Wrap. at the end: of the screen’ line 

Special Tandy 2000 Modes - dni 


10:640 x 400 black and white gni h 
| 1640 x 200 color: graphics. i Hn 













ji ii Reset Mode (RM). — S Ge as. the SM bommand sequence: QU FUR exe Brion hat N 
HEE disables, the word wrap at. ithe; end of Hin current sereen dine THH 








"he: first Dodd. or prn PURI. TRUE defines the | n 
key to be reassigned unless this code is NUL (zero). Then the first and second codes |. 


ij make up the extended ASCII definition of the key to be. redefined. The remaining THE 


| ;€haracters or codes in the command string define the. Liam iil AS 


will pe Lubin whenever this ieri is dal 


Mode” (RM) control sequences are 
used to set and control the various video 
modes and colors that can be displayed. 
Let's begin with the last two sequences 
— the set and reset mode commands. 

When you look in Figure 1 for the 
character sequences for these com- 
mands, you will see four different 
command character sequences. They 
are all equivalent — just use the one that 
makes you feel most comfortable. Fig- 
ure I also contains a brief description 
of the modes set by the parameters. 
Tandy 2000 additional screen modes are 
listed below the line (by the way, there 
is a typographical error in the character 
strings for the SM command in the MS- 
DOS Programmer s Reference Manual, 
Catalog No. 26-5403 — correct it as 
listed in Figure 1). 

The only difference between the SM 
and RM commands is in the handling 
of the “wrap-around” mode at the end 
of the line. SM sets wrap-around mode 
when Mode ‘7’ is used, and RM resets 
this mode, throwing away characters 
past the screen's end-of-line. 

The last control sequence is for key- 
board key reassignment. The first code 
(or first two codes if the first code is 
NUL) specify the key to be reassigned. 
The remainder of the command may be 
composed of code numbers represent- 
ing characters or a character string in 


quotes or any combination of these 
codes. The code numbers are the dec- 
imal number representation of the 
ASCII character code generated when 
the key is pressed. A table of key values 
may be found in your DOS reference 
manual or the Programmer's Reference 
Manual. 

Program Listing | is a short program 
written in Turbo PASCAL which assigns 
useful commands to the F7 through F10 
function keys. I found this the quickest 
approach for changing your keys but 
there are several other methods for 
using ANSI . SYS and I will describe each 
of them. 

If you use Turbo, you must use the 
‘P’ compiler directive to force Turbo to 
use MS-DOS's standard output file (use 
normal MS-DOS function calls for 
output instead of the BIOS code). This 
method lets you quickly and easily build 
a program that will change your whole 
keyboard layout, and you can include 
it in your AUTOEXEC file so you never 
have to remember it. You really should 
not reassign the FI through F6 keys as 
these are used by the MS-DOS com- 
mand processor for command line 
editing. 


Doing it Without a Program 
There are three methods for issuing 
RNSI.SYS commands without using a 





program. If you have written for and 
received my MENU demonstration disk, 
you have already experienced these two 
methods — using the TYPE and PROMPT 
commands. The third method uses the 
ECHO command. 

The RERD-ME file on the demonstra- 
tion disk contains a banner which is 
written in reverse video using ANSI . SYS 
control codes. You may enter these 
codes using any text processor you 
desire as long as it allows entry of 
control codes. The quickest available 
tool is EDLIN. Just as a reminder, if 
you use EDLIN, you enter control 
codes by typing a CTRL-V followed by 
the character. 

After you have completed building 
the file with the codes that you desire, 
write it to the disk. To display the text, 
issue the following command: 


TYPE filename.ext 


where “filename.ext” is the name that 
you assigned to the file. This will cause 
the text to be rapidly displayed on the 
video screen. 

You can also use the DOS ECHO 
command from a batch file. In order for 
this to work properly, you must first 
issue an ECHO OFF command. See Fig- 
ure 2 for a sample batch file. 

In Figure 2, the batch file uses the 
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ECHO command to clear the screen and 
set a title at the top of the video screen 
using inverse video. Line I of the batch 
file turns command echo mode off so 
that the DOS commands are not dis- 
played on the video as they are exe- 
cuted. 

Line 2 clears the video screen. Lines 
3 through 5 position the cursor to 
Column 60 of the first three lines of the 
video screen and write a block there 
containing the program title. Line 6 
positions the cursor to Column 1 of 
Line 20 and ends the batch file. The 
characters ““[” represent the ASCII 
ESC (decimal 27) character. 

The third method of using these 
control code sequences involves using 
the DOS PROMPT command. Figure 3 
contains an excerpt from the DOS 
reference manual listing the appropriate 
PROMPT special strings that may be used. 
In combination with the ANSI.SYS 
control sequences, you can really en- 
hance your displays. 


Again, if you have received a copy of 
the MENU demonstration disk, you have 
already seen one of these examples. My 
RUTOEXEC file initially sets the system 
prompt to display the time and full 
DOS path name in high intensity video 
prior to returning the command line to 
normal video mode. I accomplished this 
using ANSI control sequences and 
special prompt strings in the following 
command: 


PROMPT Se[1m{$t$h$h$h} $p$g$e[Om 


Using Figures | and 3, let's decipher 
this command. First of all, $e generates 
an ESC character so $e[1m tells DOS to 
set high intensity mode, and $e[ Øm 
returns the command line to normal 
intensity. The $t displays the current 
system time and the $h$h$h backspaces 
over the hundredths of seconds. The $p 
displays the path name followed by the 
normal DOS > symbol generated with 


Figure 2 


Sample Batch File Using ANSI.SYS Codes 


echo of f 
echo ^[[2J: 
echo ^([[1;60H^[ (7m 
| echo ^[[2:60H^[[2:1m 
echo ^ [3$ GOH^ [ [7m | 
“echo NT L205 2H 


ALLAM 
ALLON 


Program Ti tle 
AL [Om 





Figure 3 
Special Codes for PROMPT Command 


3 ‘These special prompt characters are used with the DOS PROMPT 
«command to display the information listed below. A special prompt 
character is constructed by preceding one of the characters from the table 


i below, with a's’: 


ORA A Gl 4 


Prompt Meaning 


GUL Displays the “$? ha as part of the prompt string 


uut 
id 
PALE 
V. 
ni 
19 
l 
vB 
8 
h 
ne 
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Displays the current system time 

Displays the current system date 
Displays the current directory path name 

Displays the MS-DOS version number 

Displays the default disk drive specification 
"Displays the ‘>’ (greater-than) symbol 

Displays the ‘<’ (less-than) symbol 

Displays the LM (vertical bar) symbol 

Displays a carriage return and line feed sequence 
Displays a leading space 

Backspaces the cursor one location 

Displays the ESC character (ASCII decimal value 27) 





the $g string. The braces ({}) and spaces 
are displayed as "natural" characters 
where they appear in the prompt string. 

Now let's examine a more complex 
example that saves the current location 
of the cursor and positions the cursor 
to the top line of the screen. There, the 
current system date and time are dis- 
played in high-intensity reverse video 
mode. The cursor is then positioned 
under the date and time and the current 
directory path is displayed. Finally, the 
video mode is returned to normal, the 
cursor returned to its initial position 
and the normal DOS prompt is dis- 
played. 

This prompt is long and is printed 
here on more than one line. Make sure 
that you enter it at the DOS prompt as 
one continuous string of characters. 
Note that the case (upper- and lower- 
case) of the characters in this prompt 
string is very important: 


PROMPT $e[s$e[1;7m$e[1;40H$e[K 
$d $t $e[274ØH $e[K Current 
Directory: $p $e[Om$e[u$n$g 


Disect this string piece-by-piece just 
as we did before and you will see just 
how useful this technique can be. One 
word of caution — you cannot use the 
PROMPT command to achieve immediate 
effects in a batch file. You must use the 
ECHO command or display a file con- 
tents on the video if you want to change 
video modes in the middle of a batch 
file. 

This limitation arises because of the 
way PROMPT works. It only is effective 
when the DOS command prompt 
would normally be displayed waiting 
for user input. This normally means at 
the end of the batch file. 


Conclusion 

These techniques may be used to 
extract the most from your computer 
system. You may write programs for 
any computer using the MS-DOS op- 
erating system using these methods and 
be guaranteed that your masterpiece 
will work properly. 

Like anything else, there is a trade- 
off. Using my direct access methods 
(from the last column) provides an 
exceptionally rapid method of display- 
ing information on the video screen, but 
you are limited in compatibility. Using 
the ANSI.SYS driver means that you 
can run on almost any machine that 
uses MS-DOS, but you pay a heavy 
penalty in display speed. The applica- 
tion must ultimately determine the 
proper method to be used. PCM] 





MEL The Gallery 1000/ 2000 


mathematical formulas to create exciting displays, a 

color-mixing technique called "dithering” and 
*palette animation." The program came to us from Colin 
Foster of Las Vegas, Nevada. 

This program will run as-is on a Tandy 1000. Change the 
first line of the program to read MODEL 720900 if you are using 
a Tandy 2000. It takes several hours to run, so be patient 
— the results are stunning. 

The path of the *ribbon" can be changed by altering the 
formula in Line 1120. Some suggested formulas are listed 
in Figure 1, 

If you would like to have your graphics creation presented 
here, send it in. A winning gallery exhibit is chosen each 
month and the "artist" is awarded $50. Address your entries 
to PCM Gallery, P.O. Box 385, Prospect, KY 40059. 


T= gallery exhibit this month demonstrates using 


Figure 1 
Replacement formulas for Line 1120 


X=Q*C0S(A)*COS(A)+X0:Y=Q*SIN(A) /2+Y0 
X=2*C0S(A)+XØ:Y=Q*SIN(A/3)/2+Y0 
X=QXTAN(A)+XØ:Y=Q*SIN(A) /2+Y0 








The listing: 


1999 MODEL=1999 

1919 IF MODEL=2999 THEN SCREEN 3,1:XM=649: YM=499 
1929 IF MODEL=1ØØØ THEN CLEAR,, ,327681:SCREEN 5,1:XM=329: YM=299 
1939 KEY ON:KEY OFF 

1949 DEFINT C,D,P,Q:DIM P(23) 

1959 XM=32Ø:YM=2ØØ:PI=3.14 

1969 XQ@=XM/4:YQ=YM/8 : Ja2*PI/11:B=J:R=1 

197g FOR Q=l TO 16:READ P(Q):NEXT 

1989 DATA 9,13,12,14,19,11,9,5,13,12,14,19,11,9,5,9 
1999 PALETTE USING P(1) 

1199 WHILE R<559 

111g FOR Q-W TOR 

1129 X=Q*COS (A) 4X9 : Y=Q*SIN(A) /2+YØ 

1139 IF X<L OR X>XM OR Y<l OR Y>YM THEN 1189 


1149 IF K AND POINT(X,Y) THEN 1179 


1159 DC-INT(RND*(A-Ag)/J)*C : IF DC=8 THEN DC=1 
116g PSET (X,Y),DC 

1179 NEXT Q 

1189  A-A*2*PI/(R*19):W-R*(l-ABS(.4X*SIN(PI/44A/2))) 
1199  KeINT(A/PI)/2»INT(INT(A/PI)/2) 

1299 IF A>B THEN B=B+J :AØ=A : C=C+l : IF C=8 THEN C=1 
1219  R=R+.Ø8:XØ=XØ+.Ø3:YØ=YØ+.Ø3+SINC(7%A)/2 

1229 WEND 

1239 WHILE INKEYS="" 

1248 FOR Q-1 TO 7 

1259 SWAP P(Q),P(16) 

1269 PALETTE USING P(Q) 

1279 SWAP P(Q),P(16) 

128g FOR Z=1 TO 5g : NEXT Z 

1299 NEXT Q 

1399 WEND 
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Enhance your Tandy Portable 


Your Radio Shack Model 100 
(26-3802, $499.00) or Tandy 200 
(26-3860, $799.00) are the heart 
of a complete computer system. 
We back both machines with all 
the extensive accessories to 
make them not only convenient 
portables, but powerful desktop 
tools, too. 


Get rapid disk storage 
The Tandy 200/Model 100 

Portable Disk Drive (26-3808, 
$199.95) gives you fast access to 
100K of data on 34/2” floppy 
diskettes. And since it’s battery 

owered*, you don’t have to 
eave your important documents, 
reports, spreadsheets, statistics 
and other vital data back home. 
You can take them with you 
wherever they’re needed. 


This portable drive may be 
small, but it’s not a toy. Menu- 
driven operation makes it easy to 


use. You can get a complete list 
of files for any disk. It features 
these powerful operating system 
functions: FORMAT, SAVE, 
LOAD, RENAME and BACKUP. 
A 19,200-baud data-transfer rate 
easily beats the speed of cas- 
settes. And you can choose bat- 
tery operation, or just attach an 
optional adapter to use AC 
power. And for today’s traveling 
businessperson, there’s a con- 
venient Portable Drive Case 
(26-3815, $24.95). 


Portable printing 

Like the Portable Disk Drive, 
the TRP 100 Thermal Ribbon 
Printer (26-1275, $299.95) is 
made to be used anywhere—it 
runs on both batteries* or AC 


power, and it only weighs 51/2 
pounds. Heat from the super- 
quiet thermal head transfers 
high-contrast characters onto 
plain 81/2” paper. You can also 
use thermal roll paper without 
the ribbon for direct transfer. 


High-speed 
data communications 


One of the most exciting fea- 
tures of both the Tandy 200 and 
Model 100 is the built-in modem 
that lets you communicate with 
other computers over the phone 
line. Our Direct-Connect Mo- 
dem Cable (26-1410, $19.95) 
comes with one free hour on 
both the CompuServe Informa- 
tion Network and the Dow 
Jones News/Retrieval Service. 











with our line of accessories... 


Access news, weather, sports, 
business reports and more. Plus, 
you can communicate with your 
home or office desktop com- 
puter. It's a whole new world of 
applications power! 


When you're on the road, you 
can bypass direct connection 
with our Acoustic Coupler (26- 
3805, $39.95). It's a great way to 
keep in touch with your home 
office. And with our padded car- 
rying case (26-3811, $39.95), we 
make portability all it's supposed 
to be. 


Versatile Bar Code Reader 
The useful Bar Code Reader 
(26-1183, $99.95) is an optical- 
seanning device that's ideal for 
many uses, including inventory 
control, billing and couponing. 
Software drivers, callable from 
BASIC, allow you to read Uni- 
versal Product code, 3 of 9, Ples- 
sey and other bar-code formats. 





Real desktop power 


If you need more memory, 
your Model 100 can take up 
to three 8K RAM modules 
(26-3816, $59.95 each) for a to- 
tal of 32K. And the Tandy 200 
can take up to two 24K RAM 
modules (26-3866, $199.95 
each) for a total of 72K. 


It's easy to convert your 
Model 100 laptop computer into 
the perfect desktop computer. 
Just pop in Model 100 legs 
(26-3812, $3.99) for the best 
viewing angle. Then plug in 
your computer using an op- 
tional U.L. listed AC adapter 
(26-3804, $5.95). 


Tandy . . . Clearly Superior" 


Stop by your local Radio 
Shack Computer Center and see 
the advanced technology 24K 
Model 100 and 24K Tandy 200, 
and take a look at our complete 
line of accessories and over 25 


software applications. With our 
commitment to advanced tech- 
nology, you'll find everything 
you need for professional, porta- 
ble computing power— for your 
desk or on the road. 


® 


The Technology Store" 


A DIVISION OF TANDY CORPORATION 
p uS KN ES SS DES PUN DUM = 


" Send me a 1986 3 
Computer Catalog. 


H Mail To: Radio Shack, i 
L Dept 86-A-136 1 
i 300 One Tandy Center 

fi Fort Worth, Texas 76102 i i 
(ee? 
m A a EN: 

Ë State ___ Zip i 
H PO ai Ë 
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Build an emergency 
power supply for your 
Tandy 600 


Emergency Power 
for your Tandy 600 


By Carl Oppedahl 


heed L-1011 at 30,000 feet, with three hours to go 

before landing in Los Angeles, and the "low battery” 
light comes on. If your computer were a Model 100 or 200, 
you would simply pop out the exhausted AA cells and load 
in four fresh ones. But you wanted an eighty-character 
display and a disk drive, so on this trip you brought your 
Tandy 600. It gets its power from a built-in nickel-cadmium 
(nicad) battery, and the only thing Radio Shack sells to 
power it externally is an AC adapter. The nicad is sealed 
up inside the computer. Is there any way you can keep on 
typing? 

This article discusses the power requirements of the 
Tandy 600, and tells you how an investment of about $3.50 
lets you make an external alkaline-cell power supply for the 
computer. When the "low battery” light comes on, you will 
simply connect the external battery pack. If the external 
battery runs down, causing the "low battery” light to come 
on again, you will be able to replace the D cells with fresh 
ones, and keep on typing. 


r | "here you are with your laptop computer in a Lock- 


Power Consumption 

When connected to its AC adapter, the Tandy 600 is rated 
to consume 1.5 amperes (A) at 8 volts (V); multiplying the 
two figures yields a power consumption of 12 watts (W). 
This is an order of magnitude higher than the rated AC- 
adapter power consumption of the 100 (1.1 W) or the 200 
(1.2W). 





(Carl Oppedahl is a lawyer specializing in technological 
litigation. He is the author of Inside the TRS-80 Model 100.) 
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What's Inside 

Inside the 600 is a nicad battery composed of four cells; 
the no-load output is about 5.25 V. It is positioned at the 
left rear of the computer and provides a nice counterbalance 
to the mass of the disk drive. 

The AC adapter for the Tandy 600 has no catalog 
number, so it is not clear how you could buy an extra 
adapter to have one at the office and one at home. It is rated 
to produce 8 V at 1.5 A and contains a large transformer, 
a full-wave bridge rectifier and a 4700-uF 16-V electrolytic 
capacitor. A 4-A fuse is in series with the DC output, which 
terminates in a 5.5-millimeter diameter coaxial power plug 
with positive current at the outer conductor. 





Designing a Substitute 

Designing an external supply for the Model 100 or 200 
is quite easy — since the adapter jack is labeled for 6 volts, 
a 6-volt lantern battery or 6-volt, lead-acid gel-cell will serve 
perfectly. But the adapter jack on the Tandy 600 is labeled 
8 volts, and no common, commercially available battery 
produces 8 volts. What's worse is that no combination of 
1.5-volt AA, C, or D cells can add up to 8 volts — the closest 
you can get is 7.5V (5 cells) or 9V (6 cells). To decide which 
to use, I measured the actual power used by the Tandy 600 
under various conditions. 

Disconnected from the computer, the AC adapter 
produces more than 11 volts. With various test leads | 
connected, I found that when the computer is turned off, 
charging of the nicads can consume 4.2 watts (0.5A at a time 
when the power supply produces 8.4V). Turning the power 
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User Installable! Over 100 Channels! 
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on increases the power drain by 0.8 watts (to 0.6A at 8.3V). 
Disk operation really eats up the power, drawing another 
4.25 watts (a total of 1.25A at 7.4V). Modem and printer 
operations can take a little more power still. 

What this means is that five D cells, producing 7.5V, 
would barely squeak by as a substitute for the AC adapter. 
A battery pack of six cells, yielding nine volts, does a pretty 
good job. 


Making the External Supply 
The shopping list is pretty short. See Table 1. 


Table 1 
Parts list for external battery pack 


Item Cat. No. Price 
Battery Holder — 2 D cells 270- 386 1.19 
Battery Holder — 4 D cells 270- 389 1.29 
Coaxial DC power plug 274-1569 .99 
Total 3.47 


The battery holders have holes drilled for mounting, and 
I used screws to secure them to a piece of wood. Each holder 
has two wires coming out, one red (positive) and one black 
(negative). The two-cell holder produces 3 volts, the four- 
cell holder produces 6 volts, and the two in series produce 
9 volts. I soldered the red wire of one holder to the black 
wire of another; the remaining two wires I connected to a 
length of lamp cord. The cord I had used one copper 
conductor and one silver, and I connected the copper 
conductor to the red wire and the silver conductor to the 
black wire. (If the lamp cord you use is not color-coded, 


DON’T MISS 


THE LATEST ADVANCE 
IN MODEL 100/TANDY 200 


SOFTWARE 


" by the creators of 


X-TE TELECCOMMUTER™ 


Muse TEXT while online in TELCOM: Download letters 
and upload a reply in one terminal session 


li Exchange .CO, .BA and .DO files with other computers, 
bulletin boards, and information utilities 


H Standard XMODEM error-checking protocol 

H List and Kill Files online in TELCOM 

li Compatible with Telecommuter and other desktop 
communications software supporting XMODEM 


Specify Radio Shack Model 100 or Tandy 200 computer 
Price: $50 on MS-DOS diskette or cassette 


MasterCard and Visa accepted. 
Please call or write for further information. 


30 SIMPLE 


Sigea Systems, Inc. 
19 Pelham Road 
Weston, MA 02193 
(617) 647-1099 
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the insulation may have molded-in ridges to keep track of 
the conductors.) At the power connector, I connected the 
copper conductor to the outer (barrel) contact and the silver 
conductor to the inner contact. The plug has a plastic body 
which should be slipped onto the cord before soldering the 
cord to the plug. 

It is of crucial importance that the polarity at the plug 
be correct. If there is any possibility you have gotten it 
backwards, put D cells in the holders and use a voltmeter 
to test the polarity; it should be the same as that of the AC 
adapter. 


Using the Adapter 

The main reason for hooking up the external D cells is 
to allow continued computer function. But assuming the 
“low battery" light was what prompted connecting the 
external supply, then the nearly-drained internal nicads are 
going to draw lots of power from the D cells just for 
charging. In other words, when the D cells are exhausted, 
the nicads may have charged up enough to allow a little 
more computing time. In any event, if you are going to carry 
around six D cells, you might wish to carry twelve to allow 
a change after the first six have been drained. 

How long can you expect a set of D cells to last? Duracell 
Inc. tells me that with a constant current load on one 
ampere, their D cells could be expected to last perhaps five 
hours. Assuming minimal disk use, my calculations suggest 
a life of almost 10 hours. Disk access obviously uses up the 
cells much faster. 

With this external power supply for the Tandy 600, you 
need not be so concerned about being away from AC 
outlets. [PCM] 





WORD PROCESSING 


TRAINING GUIDE for 
IBM-PC and TRS-80 


Become an expert in the advanced word processing 
techniques in just a few hours. Develop skills that can 
be applied to any of the best selling word processors, 
no matter which system you decide to buy. Includes 
program disk so you learn quickly by doing. The train- 
ing guide and training program disk (a $50.00 value) 
will be sent to you absolutely free, with no obligation, 
upon receipt of this filled out coupon. Offer good for 
a limited time. 
ER NEN FE ER ER ER ER ER ER FE ER ER RE EN ER ER ER UN 


"(Computer names are tradenames and/or trademarks of their respective 
manufacturers.) Å 


5 LeScript Word Processing Systems | 
P.O. Box 361136, Melbourne, FL 32936 
i (or call 1-305-259-9397) F 
| Type of computer system: q 
D IBM-PC/XT/AT/PC jr D TANDY-1000 

å C TANDY-2000 O TRS-80 1/3/4/4P I 
I o TANDY-1200 D TRS-80 2/12/16 Ü 
i 

i Name - 
i Address I 
s City State Zip - 
i Telephone 5 
å 
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gainst a backdrop of the RAIN- 
A Ewes Princeton, the first 

PCMfest was held October 11-12 
at the Hyatt Regency Hotel, Princeton, 
New Jersey. RAINBOW fest is a show 
geared solely for the Tandy Color Compu- 
ter, and nearly 13,000 people attended this 
huge show. PCMfest ran concurrently in 
the same location, and because of the 
tremendous interest from the Color Com- 
puter fans, no really accurate count of 
attendees is possible. 

PCMfest was designed as a show where 
readers of Falsoft's PCM magazine would 
have a chance to meet some of the editorial 
staff of the magazine. Visitors could also 
attend informative free seminars on all 
aspects of personal computing and have a 
chance to make a hands-on inspection of 
new introductions in the MS-DOS family 
of hardware and software products. 












Computer Discount 
of New Jersey 









Computer Discount, a 
division of the Crowley Cor- 
poration, offered a wide 


Hard Drive Specialist 
Displays TanPak, 
Hard Drives 





Prospect, Kentucky 


© Falsoft, Inc. All Rights Reserved 


Record Crowd Attends Dual Festival 


Visible at the show were some well- 
known names to PCM readers, names such 
as Danny Humphress, Lonnie Falk, Jutta 
Kapfhammer and Dan Downard. The 
keynote speaker for the Community 
Breakfast was Bill Barden, who has written 
some 30 books on computers, and is one 
of the most widely read computer authors 
in the country. Bill spoke of future predic- 
tions, particularly in light of Tandy’s entry 
into the MS-DOS market. “I predict that 
Radio Shack will be around forever,” he 
said, and went into a discussion about the 
merits of desktop computers. Attendees 
had a chance to see many products dem- 
onstrated, such as The Small Computer 
Company's File Pro 16, or Sigea System's 
Telecommuter software. Osicom showed 
off the Rose Hard Drive, and Tandy went 
all out to market their laptop and new MS- 
DOS machines at special show prices. 













Sigea Systems Introduces 
Telecommuter Software 


Editor: Danny Humphress 
Writer: Jeffrey S. Parker 




























Howard Medical 
Cuts Monitor Prices 


Howard Medical Co., of 
Chicago, cut the price of the 
Zenith 131 monitor to $168 
for the show. This 13-inch 
monitor has 240 X 200 reso- 
lution, a built-in speaker, an 
RGB and a composite jack, 
and is backed by a 30-day, 
money back warrantee. In 
addition, Howard Medical 
was selling the Zenith 123A 
12-inch monochrome green 
screen monitor for just 
$67.50. 



























range of equipment at huge 
discounts at PCMfest. On 
display was the Rose-20, a 
20.15 megabyte hard drive 
for the Tandy 1000. Availa- 
ble also was the PBJ MFB 
with DMA controller chip, 
clock/calendar, serial port, 
512K of RAM memory and 
more. Computer discount 
offered a stuffed Tandy 1000 
with 640K, second drive, 
monitor, printer, DOS and 
BASIC at the astounding 
price of $1,999, a savings of 
nearly $1,000. Also on dis- 
play was the AT&T PC 
6300, a different MS-DOS 
alternative to the Tandy 
1000. 


Extra drives, memory up- 
grades, the TanPak multi- 
function board, and many 
hard disk subsystems for the 
Tandy 1000 at bargain prices 
were the order of the day for 
HDS. This exhibit was usu- 
ally several rows deep in 
people looking for good 
quality, low cost ways to add 
a hard drive, serial ports, 
clock/calendars and the like 
to their Tandy 1000s. HDS 
was a major supporter of 
PCMfest at the show, pro- 
viding show goers with an 
opportunity to get a tho- 
rough inspection of the 
equipment before purchas- 
ing. 













































































Sigea Systems, owned and operated by Harry and Ellen 
Brawley of Weston, Massachusetts, was on hand to 
demonstrate their powerful new Telecommuter software. 
This package is designed to transfer files between a portable 
computer, such as the Model 100 or 200, and a desktop, 
like the Tandy 1000, 1200, 2000, etc. The logo of Sigea 
Systems is "So Simple," and Telecommuter is one of the 
easiest to learn and simplest to operate programs ever 
created for the MS-DOS family of computers. 

More than just a file transfer utility, Telecommuter will 
take a file from a laptop and transport it intact to a desktop, 
where it can be edited. The process can also be reversed. 

Sigea Systems has also built a full-function, easy-to- 
operate word processor into Telecommuter that makes 
some word processors look like tinker toys. Sigea Systems 
gives you editing and formatting, and as their display 
indicated, all the bells and whistles. 
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PCM Booth 
Kept Busy 


Many well known names 
from the PCM editorial staff 
were present to answer ques- 
tions and help people want- 
ing to purchase a Falsoft 
publication, or just say hello 
to someone previously only 
known over the telephone. 
Despite the tremendous 
crowd, the staff of PCM 
managed to keep things run- 
ning smoothly. 




















Computer Plus 
Sets Discount 
Trends 


Computer Plus, of Lit- 
tleton, Massachusetts, had 
many show specials availa- 
ble, including the Gemini 
SG-10 printer for under 
$245. This was just a sample 
of some real bargains avail- 
able at this exhibit, as Com- 
puter Plus is an authorized 
Radio Shack dealer, but 
discounts its items 10-20 
percent and møre. Imagine a 
Tandy 1000 with a monitor 
for just $859! 








The Small Computer 


filePro 16 is a multifunc- 
tion, multipurpose program 
developed for single and 
multi-user computers by the 
same company that brought 
Profileto the world of TRS- 
80 computers. 

filePro 16 and filePro 16 
Plus are database manage- 
ment systems that also in- 
corporate an applications 
developer. This system is so 


The seminar topics were 
wide, varied and quite im- 
pressive. Nearly every sem- 
inar drew a capacity crowd 
in the seminar rooms. The 
topics covered many of the 
important areas of compu- 
ting that concern all users of 
portables, desktops, MS- 
DOS and compatible ma- 
chines. 

Danny Humphress, man- 
aging editor of PCM, gave a 
talk on Tandy's new intra- 





¢heapware® Games 


for the Tandy'™ 1000, 1200, 3000 and compatibles 


Arcade Poker: You've played it in bars, in video arcades and in Vegas. With this 
program you can either play poker for points to beat your high scores or play against 


others to beat their high scores. 


$15.00 


Draw Poker: Includes Arcade Poker, play against the Dealer and two games to play 


against others, either for fun or for money. 


$35.00 


Poker Odds Calculator: Compute exact odds of holding any poker hand at the end of the 


second draw with this program. 


$25.00 


Gramarcy* —the Word Game: This is the same game you will see in your daily paper. 
You must find all words in a given word using each letter only once. Utilities are included 


to update data base. 


$35.00 


Price includes first class postage. VISA/MasterCard accepted. 
Information /Orders call: 


Robert L. Nicolai 
4038 N. Ninth Street 
St. Louis, MO 63147 





800-NICOLAI (642-6524) 
or 
314-621-7618 in Missouri 


CERTIFICATION 
SEAL 


Tandy is a trademark of Tandy Corporation 
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Company Displays filePro 16 


flexible and powerful, par- 
ticularly when coupled with 
the applications developer 
in filePro 16 Plus, that there 
is very little this program 
could not handle. filePro 16 
also interfaces with major 
programs like Multiplan 
and any major word pro- 
cessing system, and will run 
on a wide field of MS-DOS, 
PC-DOS, and even Unix/ 


Informative Seminars Highlight PCMfest 


office communications sys- 
tem, ViaNet, which is com- 
patible with all of Tandy's 
MS-DOS and Zenix com- 
puters. Easy to learn and 
use, ViaNet doesn't make 
the rest of the software in a 
system obsolete. This is Tan- 
dy's excellent new entry into 
the networking field. 

Other topics covered law 
and portable computers, 
database management and 
data communications; Bill 





Zenix and CP/M machines. 

Because of its power and 
flexibility, and its ability to 
be conformed, configured 
and designed to the user's 
specific needs, this program 
is a must for the business 
environment in need of high 
powered data management 
and total flexibility. 


Barden gave a compelling 
talk on computer languages, 
a fantastical journey into the 
future of portable comput- 
ing, and Harry Brawley 
presented a detailed discus- 
sion of the implications of 
new software that allows use 
of the same commands for 
portables and desk top com- 
puters, and what this new 
development will mean to 
the world of laptop comput- 


ing. 


EDUCATIONAL/ENTERTAINMENT PROGRAMS FOR THE TANDY 1000 


Disk 1 Number Fun! 
Disk 2 
Disk 5 
Disk 4 
Disk 5 


Games (age 4-99) 


{age 4-8) 

Kid's Adventures (age 4-10) 
Picture Puzzles (256K) 
Learning Graphics in Basic 


$15.00 
$15.00 
$15.00 
$15.00 
$15.00 


(Child-Adult) 


Price includes postage and handling in the U.S. 


Foreign orders add $2.50. 


Send $1.00 for list & description of programs available. 
Refundable with first purchase. 


Send check or 
money order to: 


(U.S. funds only) 


P.O. BOX 653 
KENOSHA . UH. 53141 
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Å Towering 


Database 


By Robert D. Covington 


In January, we introduced 
Robert Covington's DBI 1 dat- 
abase management program 
and discussed the concepts and 
basic modules of this system. 
This month, you'll find BASIC 
listings for the complete pro- 
gram as well as a discussion on 
the report generator and the 
other, more advanced, features 
of DBI1. 

Because of program en- 
hancements, the specific in- 
structions for loading and sav- 
ing the first three modules 
which appeared in last month's 
Subroutine City have been 
changed. Instead, follow the 
instructions given in this arti- 
cle. The instructions presented 
for using DBl1 have not 
changed, however. 


System 


ast month, I described two mod- 
Ls for the DBII database sys- 

tem which allowed a database to 
be created and allowed data to be 
entered and edited in that database. 

This month, the remaining parts of 
DBI1 will be discussed. These parts 
include the report generator, the data 
manipulation functions, and the rest of 
the database format funtions. 
Installation of Programs 

Programs | through 5 contain the 
entire DBI1 database system. Each of 
these programs should be entered sepa- 
rately in BASIC and saved with the 
instruction SAVE“PROGn.BAS”,A 
where 'n” is the program number (1 
through 5). 

Once the programs have been en- 
tered, follow the instructions given in 
Figure 1. All of these instructions 
should be entered in BASIC's command 
mode exactly as they are printed. Before 
starting the instructions, however, 
make at least one backup of your orig- 
inal programs. That way, if you make 
a mistake, you can start again with the 
backup. These instructions assume 
there is plenty of room on the disk. 
When all instructions have been com- 
pleted, DB11.B85 and PROG1.BAS 
through PROGS.BRS can be deleted 
from the database disk. 


(Bob Covington has been a computer 
programmer and consultant for the past 
six years, most recently focusing his 
attention on both the Model 100 and the 
2000. He is also a technical writer and 
editor. Bob can be contacted at P.O. 
Box 37007, St. Louis, MO 63141.) 





1000 1200 2000 3000 


Figure 1 


Instructions for creating | MAIN. BAS 


LOAD”PROGL. BAS” ; 
MERGE”PROG2. ans 
DELETE 1125113. 
DELETE 116-118. 


DELETE 156-157 


DELETE 165. 


DELETE 250-295 > . 
DELETE 50800-50820 — 


DELETE 52400- 52595 . 


"DELETE 53000-53025. 


DELETE 53300-53540 ' 


Y GOTO 65000 ie 


Instructions. for creating DBF ORM. 
LOAD“PROG1-BAS” tt 
MERGE ^PROG3. BAS” Mi Qu 
DELETE 112-113 


DELETE 116-118 


DELETE 156- 157 


DELETE 165 _ 
DELETE 250-295 


DELETE 50100-50795 
DELETE 51100-51105 — 
DELETE 52200-52305 


| DELETE 53300-53540 — 


DELETE 54000- 54205 ja 
GOTO 65000 


Instructions. for creating | 
DATAMAN. BAS 


LORD"PROGl.BRS^ 


MERGE ”PROG4. BAS” 


DELETE 112-113 


DELETE 116- -118 
DELETE 156-157 


DELETE 165 


DELETE 200-295 
DELETE 50800-50820 — 
DELETE 51100-51105 


: DELETE 52200-52595 


DELETE 53000-53025. 
DELETE 53300-53540 
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DELETE 54000-54205 
GOTO 65000 


Instructions for creating PRINT . BAS 
LOAD“PROG1.BAS” 


MERGE ^PROGS.BRS^ 
DELETE 200-235 
DELETE 52200-52595 
DELETE 53000-53025 
DELETE 54000-54205 
SOTO 65000 


After the BASIC programs have been 
created, exit to DOS and type the text 
in Figure 2 at the MS-DOS prompt. This 
will create a batch file for DOS that 
loads the DB11 program into memory. 

The next step is to create a default 
COBASE.PRT file. While at the MS- 
DOS prompt, type the following: 

COPY CON CDBRSE.PTR 

gø 

09 

Ø 

Ø 

NZ (CTRL-Z followed by ENTER 

Once all of the above steps have been 
completed, type DB11 and press ENTER. 
The database system will be loaded into 
memory and initialized. 

Because of the size of DBII, it is 
usually wise to use a minimum MS- 
DOS system disk for storing the data- 
base system. To create such a disk, 
format a blank disk with the FORMAT 
73 command and copy BASIC.EXE and 
all the database files to the new disk. 
Doing this will give the DBII system 
enough room on the disk for its internal 
files. 

Database Format Functions 

Last month we discussed only the 
minimum functions required to create 
and initialize a database. This month, 
six additional functions are discussed to 
simplify manipulating databases and 
their sub-databases. 

The first new function, “Change 
Current Key Database," allows another 
database on the system to be used. 
When this option is selected, the pro- 
gram prompts for the drive to search for 
a new database. The drive letter that 
you enter here is searched by this func- 
tion for any defined DB11 databases. If 
the program finds one or more data- 
bases on the drive, the program allows 
you to select the database you want. If 
no database is found on the disk, the 
program generates an error and returns 
to the menu. This function is particu- 
larly useful when more than one data- 
base is stored on a drive (especially a 
hard drive). 

To facilitate removing databases and 
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Do You Want A Real Warranty... 


or will you settle for a vague promise? 


S 1977, we have operated a Radio Shack Authorized Sales Center (ASC), in the city 
of Grapevine, Texas. This will be significant for you only if (a) you want a warranty 
which you can exercise easily, if necessary and (b) the reassurance of our long term stability 
and business ethics. 


When you buy a Tandy/Radio Shack product from us the Tandy/Radio Shack Warranty will 
accompany it and the warranty and service will be available to you, anywhere in the U.S. 


We will not install any foreign parts which might, and probably will, have an adverse affect 
upon your warranty. We will assist you in obtaining local support, should you experience 
difficulty, and will make an offer to buy-our-product-back* (hardware)if it dissatisfies you, 
within 30 days. 

"We ship fast," has always been our motto and if anyone is offering you a lower price, we 
suggest you ask about the foreign parts (and warranty) before closing the deal. We will 
"NOT meet-or-beat'' a lower price so you can be sure you have our best quote the first time, 
and our toll-free phone lines (outside Texas) make the quote easy for you to get, from 9 a.m.— 
5 p.m. central time, Monday thru Friday. (*For a small handling charge) 


-———- TOLL FREE 1-800-433-SALE 


326 Main St. Grapevine, Texas 76051 


TEXAS BUYERS ADD 5%% SALES TAX 





sub-databases from the system, "Kill 
Sub-database" and "Delete Current 
Database" have been added. The Kill 
Sub-database function allows one of the 
sub-databases defined in the current 
database to be erased. The Delete 
Current Database function erases the 
current database's field definitions, 
reports, sub-databases and data. Both 
of these functions are quite dangerous 
and generally irreversible. Use them 
with care! 

For changing the characteristics of a 
database, the “Change Field Name" and 
"Extend Maximum Record Limit" 
functions have been added. The Change 
Field Name function allows the text 
associated with a database field to be 
altered. This function is most com- 
monly used to correct typing and spell- 
ing errors in the field name that was 
introduced when the database was 
defined. The Extend Maximum Record 
Limit function changes the number of 
records that DB// allows you to store 
in the currently selected database. 
While this function's name is Extend 
Maximum Record Limit, the record 
limit can just as easily be decreased. 

The last database format function, 
*List Database Characteristics," gener- 
ates a comprehensive listing of informa- 
tion on the current database. The out- 
put from this function is quite useful for 
planning new sub-databases or creating 
new databases from old ones. For 
permanent records, this function allows 
the database information to be listed to 
a printer. 


Data Manipulation Functions 

The *Data Manipulation Functions" 
module contains four major functions 
for organizing the data in a database 
beyond that which can be performed by 
the edit functions. 

Probably the most used function in 
this module is the *Sort Database" 
function which sorts the current data- 
base's data into ascending order. When 
the sort function is selected, the pro- 
gram asks for the sort priorities for each 
field in the current database. Fields with 
low sort priorities are used to order a 
database before fields with higher sort 
priorities. For example, in last month's 
sample mailing list database, if ZIP 
code was given a sort priority of one and 
name was given a sort priority of two, 
the sort function would first sort by ZIP 
code then by name if two or more ZIP 
codes were identical. 

Once all the fields in the database 
have been assigned a sort priority, the 
program proceeds to sort the database. 
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Unlike many databases, DBII's sort 
does not require any additional over- 
head for sorting the database data. This 
means that you can sort a database that 
occupies an entire disk without needing 
an additional disk for the sort. 

While the sort function is probably 
the most used function in this module, 
definitely the most powerful function is 
the "Transfer Database Data" function. 
This function allows data from one 
database to be transferred to another 
database. On the outside, this function 
might not seem very useful. At closer 
inspection, however, you will find this 
simple function adds one of the most 
useful functions that always seems to be 
omitted from many commercial data- 
base systems: the ability to delete or add 
fields to an already existing database. 

When the Transfer Database Data 
function is invoked, the program asks 
you to select a source database. As you 
might expect, the data that is to be 
transferred comes from the source 
database. The destination database is 
always defined as the current database. 
In most cases, the destination database 
has been recently created and contains 
no data. 

Once the source and destination 
databases have been defined, the pro- 
gram has the user define which fields in 
the source database should be trans- 


ferred into the destination database. In 
this process, the program displays each 
destination database field one at a time 
and has the user either join it with a field 
in the source database or leave the 
destination field empty. 

Two fields are allowed to be joined 
only if their general types are identical. 
For example, an alpha-only field can be 
transferred to an alphanumeric field but 
it cannot be transferred to a numeric 
field. 

Once all the transfer definitions have 
been set, the program proceeds to 
transfer the database data between the 
joined fields of the two databases. When 
the data is transferred, it is appended to 
the end of the destination database. All 
“tag,” “new record,” “edit” and “delete” 
statuses are preserved in the transfer. 

Since this function is rather complex 
and powerful, let’s go through an exam- 
ple of adding a field to last month’s 
mailing list database. The first step is to 
define a database with all the original 
database fields plus any additional field. 

or our example, let’s say we wish to 

add a field for the person’s title. 
Since we are creating a new database, 
go to the Database Functions menu and 
select the Make Database option. When 
creating the database, make sure to use 
a database name that is different from 
the EE mung list database. If the 


` Figure 2 


“Instructions: for creating startup batch file 


COPY CON DELL. BAT 


ECHO OFF 
CEST 


ECHO DB11 Databas Management System 

ECHO By Robert D. Covington 

ECHO Copyright 1986 PCM Magazine MEL 
. ECHO EOS database. Please wait.. MARE 


i BASIC MAIN "Fs i vs: 1024 i 
; (CTRL-Z followed by ENTER) ` 


ee 








same name is used, the new database 
will overwrite the old one and all its data 
will be lost. 

Once the new database with the 
additional field has been created, return 
to the Transfer Database Data function 
in the data manipulation module. The 
first question asked by this function is 
what drive contains the source data- 
base. For this example, let’s say the old 
mailing list database is on Drive A. 
After entering the A, the program asks 
you to select the source database from 
the list of available databases on Drive 
A. To do this, press the up or down 
arrows until the name of the old mailing 
list database appears on the screen. 
When the desired database is found, 
press the space bar to select it. At this 
point, the program now knows that the 
source database is the one you just 
selected and the destination database is 
the one you just created (remember, all 
new databases are automatically de- 
fined as the current database). 

fter the transfer databases have 

been selected, the program asks 
you to select the source field that should 
be joined with the first destination field. 
In this example, the first destination 
field, NAME, should be joined with the 
source field NAME. To select the source 
field, press the up- and down-arrow 
keys until the NAME field appears on the 
screen. Press the space bar to join the 
two fields. If for some reason you did 
not want the NAME field to be transferred 
from the source to destination data- 
bases, you could then press ENTER to 
skip the current destination field. 

Once the NAME field has been joined, 
repeat this process for the rest of the 
database fields. When you reach the 
new TITLE field, skip it since there is no 
source database field to join with it. 

When all the field transfer parameters 
have been set, the program proceeds to 
transfer the source database field data 
to destination database fields. When 


TANDY 200 24K EXPANSION MODULES $99 


H 8K MEMORY MODULE $29 


CALL FOR 
LATEST PRICE 


For your Model 100 & NEC PC-8201. Field proven (over 30,000 in use), factory tested and fully supported. 
Portable Thermal Printer 


SIDESTAR $399 


128K RAM DISK CARTRIDGE 
For the Starlet NEC PC-8401 


SIDECAR 128K RAM CARTRIDGE $259 
Plugs into side of the NEC PC-8201 


ØP PURPLE 
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420 Constitution Ave. 
UWS COMPUTING Camarillo, CA 93010 


TTXpress MODEL 1280 $99 
Battery opperated, 2.2 Ibs., 82" 


FREE SHIPPING, HANDELING & INS. FOR CONT. USA. 
Orders shipped UPS next business day. 30-day satisfaction, 


paper, 40 cps., parallel. 


money back guarantee. We accept Visa, M/C & Amer. Exp. 


Checks held 18 days. 





(800) 732-5012 


(805) 987-4788 (in Calit.) 





completed, the new database will con- 
tain all of the data that was in the old 
one with the addition of one additional 
field (initially blank). 

The last two functions that are imple- 
mented in the Data Manipulation mo- 
dule of DBI1 are responsible for delet- 
ing data from the current database. The 
Erase Database function causes all of 
the data stored in the database to be 
erased. After this function has been 
used, the database is in the same con- 
dition it was in just after it was created. 
In other words, even though the data in 
the database was erased, new data can 
be entered into the database at a later 
time. The actual database definitions 
are not altered. 

The Organize Database function 
eliminates all deleted data below a 
certain level from the database. As you 
may recall, when records are deleted in 
DBll, they are not actually removed 
from the system. The deleted records 
are assigned the current delete level and 
logically made invisible to the system. 
By doing this, records that have been 
deleted can be retrieved at a later time 
if necessary. 

Sometimes, however, you do not 
want to waste disk space keeping old 
deleted records. To eliminate this prob- 
lem, the organize database function will 
actually remove the deleted data from 
the disk and recover the space it occu- 
pied for future records. Unlike some 
systems, organizing the database in 
DBII does not change the relative 
position of the records or require any 
additional disk space. 


Report Functions 

Probably the most important section 
of a database is its report generator. A 
report is a portable extention of the 
organizational capabilities of a data- 
base system. Without reports, we would 
need to have the computer and database 
system available any time we needed to 
find information that is stored in the 
database. If a database's report gener- 
ator is not flexible enough to make a 
report the user needs, the entire data- 
base's productivity is greatly reduced. 

The report generator in DB11 is one 
of its most powerful features. DBI/ 
supports both single- or multi-line 
columnar reports (traditional reports) 
and multi-line block reports (mailing 
labels) which can contain some or all of 
the fields in a database. In addition, 
reports can be based on the find pa- 
rameters and the "tag," *edit" and "new 
record" statuses. 

Reports on DBII can be output to 


any legal device or file in the system. To 
support this flexibility, the *Print Re- 
port" functions module contains four 
major functions for manipulating and 
defining output devices for reports. 


Output Driver Functions 

The most important output driver 
function, "Define Output Driver," 
creates a printer driver which interfaces 
the DBII Print Report function to an 
output device. When this function is 
invoked, the program asks for the driver 
name. This name can be any text string 
that distinguishes the output driver 
from others. 

Next, the program asks for the device 
name. In most cases, the output driver 
will be LPT1: (line printer Port 1). In 
some cases, however, you may have 
printers connected to other printer 
ports (LPT2:, LPT3:, etc.) or to an RS- 
232 (COM1:). If the RS-232 is selected 
as the output port, use the format for 
the RS-232 parameters described in the 
BASIC manual under the OPEN”COM1: ^ 
instruction. 

In addition to devices, the device 
name can be replaced with a filename. 
This function is very convenient in 
interfacing data from DBII to many 
spreadsheet and word processing sys- 
tems. If a question mark is used for the 
device name, the program will prompt 
for the device name each time the report 
is printed. This function was imple- 
mented to better facilitate printing 
reports to a disk file. If this function 
were omitted, you would have to define 
a printer driver for each file you wanted 
to output to. If text follows the question 
mark (example: ?LPT1:), the additional 
text is used as the default for the device 
name prompt asked before printing. 

After the printer driver has been 
named and the output device has been 
selected, the program prompts for the 
control codes necessary to select various 
fonts or pitches on the output device. 
When the program prompts for a font 
code, it asks for the font's name and the 
decimal control codes required to select 
the desired font. If the device you are 
connecting to does not require any font 
control codes — a disk file or the screen 
(SCRN:), for example — configure a 
font that sends a useless character to the 
device or file. Usually, the best control 
code to use in this case is a NUL (decimal 
0). 

Once all the fonts have been defined, 
the program then has you choose which 
font you wish to use for printing. This 
font is stored as the current font and 
used whenever the printer driver is used. 


To change the current font once the 
printer driver has been created, the 
*Font/Pitch Change" function can be 
used. As the name implies, this function 
allows a new font to be defined in the 
printer driver. 

To change the current printer driver 
to a previously defined driver, the 
output driver selection function can be 
used. DBI Ps ability to support a variety 
of printer drivers is very convenient 
when more than one printer is con- 
nected to a computer. This is especially 
true in a Vianet network where multiple 
printers are common. When a printer 
driver is selected, the current font is 
automatically set to the last font used 
by the printer driver. 


The Report Generator 

Once an output driver has been 
created and selected, reports can be 
generated and printed. To do this, DBI I 
contains four functions for creating, 
printing and manipulating reports. 

Probably the most important of these 
functions is the "Report Generator" 
function which is responsible for creat- 
ing the format of a report. When this 
function is invoked, you are prompted 
for the report and the margin settings 
of the report page. When entering 
margin settings, make sure your printer 
can handle the page you have defined. 
This is especially true with wide carriage 
printers using 84 by 11 sheets of paper. 
If you define a page that is larger than 
the paper size, you will probably end up 
printing on your roller. 

Once the page size definitions have 
been set, the report generator enters a 
full-screen editor where the user can 
input the report definition. The full- 
screen editor used in the report gener- 
ator is very similar to the editor in the 
Build Database function. Table | con- 
tains a listing of all the control codes 
that are available in the editor. The 
main difference between the two editors 
is the report generator's editor can 
manipulate an area of up to 255 char- 
acters by 24 rows instead of the normal 
80 characters by 25 rows. The editor 
emulates a 255-character-wide screen 
by using the computer's 80 by 25 screen 
as a window on the actual editor page. 

A report definition contains three 
major parts. The top part of the report 
usually contains header information, 
page number definitions, titles, report 
dates, etc. This information is usually 
only printed once on each page. 

The middle part of the report con- 
tains the actual database record data. In 
a normal columnar report, each line in 
the middle section corresponds to a 
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record of information in the database. 
When the middle section is defined, one 
copy of the information is formatted for 
the entire page. 

Then, the computer prompts for the 
area of the report that is to be repeated 
for each record of data. By doing this, 
the user does not have to enter report 
definitions for every line in a printed 
page of a report. 

The end section of the report usually 
contains footer information, page 


numbers, report names, etc. 

Each of these three sections can 
contain three types of information: text 
descriptions, virtual fields and database 
fields. 

Text descriptions are non-field data 
that are usually used to describe fields 
or reports. Text descriptions are usually 
used for column headings and report 
names. 

Virtual fields are fields of informa- 
tion that are either generated by the 


Table 1 dd 
Full screen editor commands for report generator. i 


CTRL-D 
CTRL-E 

BACK SPACE 
HOME 

END 

CIRL-L 
ENTER 
CTRL-Q 
INSERT 
DELETE 

ESC 

Arrows 

Shift Arrows 
PG UP and PG DN 
CTRL-I 

TAB 


Duplicate last character for rest of line. 
Erase current line and index lower lines MP: 
Backspace and delete. | 

Move cursor to upper-left corner. 

Move cursor to lower-right corner. 

Insert line at current row. 

Move to beginning of next line. 

Quit editing screen and return. ' 

Insert space at current cursor position. 
Delete character at current cursor. Roman: 
Erase (blank) current line: Huit 

Move cursor in direction of arrow. | 

Move to extreme position in arrow direction. 
Scan through field information (field help). | 
Insert report field for current it field. 
Same as CTRLE-I. 





program when the report is printed or 
retrieved from the record status file. 
Examples of virtual fields are page 
number, line number, delete level, edit 
status, etc. Table 2 gives a complete 
listing of the virtual fields along with 
their descriptions. When virtual fields 
are defined, they should be treated just 
as if they were actual database fields. 

Database fields, as the name implies, 
are fields of information that are stored 
on the current database. If you recall, 
when defining a sub-database, database 
fields are signified by a colon (:) fol- 
lowed by a string of periods. When a 
report is generated, however, database 
fields use slightly different field identi- 
fiers. A complete listing of these report 
field identifiers is given in your system's 
BASIC reference manual for the PRINT 
USING instruction. As you can see from 
this information, the identifiers are 
divided into two major groupings; text 
(string) fields and numeric fields. 

Text fields are usually identified by 
two backslash characters (\). For exam- 
ple, if you wished to define a text field 
of 10 characters, you would type a 
backslash, eight spaces (or any other 
character) and another backslash. To 
define text fields that only contain one 
character, the exclamation point (!) 


FAST CASSETTE STORAGE 


for Model 100 Text Files 


* Save .DO files up to THREE times as fast 
* Load text more than TWICE as fast 
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WHAT IS "FAST"? 


FAST" is a revolutionary concept in the way the Model 100 
handles the storage and retrieval of text (.DO) files. FAST saves 
or loads text in one continuous stream of data — the same way 
BASIC programs are saved and loaded. The package (compat- 
ible with M/L programs) consists of two easy-to-load programs: 


The SAVER-BACKUP program occupies approximately 900 
bytes of RAM — small enough to always carry along, whether 
at home or on the road. 


The LOADER program, which occupies 2K of memory and 
reserves about 1K during loading, makes loading text easier than 
ever. When loading, a unique Search Mode feature presents the 
name and length of each file encountered, and allows user to 
decide whether to load, or to skip on to the next file on the tape. 
And unlike the "Old Way," the program will warn the user before 
loading if insufficient memory is present, and exactly how much 
more will need to be freed. Error-checking has been improved 
(no more dropping of 256-byte chunks of text), and now you can 
even load flawed tape files — which are usually still usable, and 
maybe even crucial. 


The Facts: The recording time to save a 5K file is now only 39 
sec (vs 106 sec). A 10K file takes 1.1 min (vs 3.4 min). But there's 
more... 
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OTHER FEATURES: 

e Backup all your irreplaceable Text Files (including ADRS and 
NOTE) in one quick, convenient operation. This feature 
alone is worth the price. 

e Verify cassette saves before erasing files from memory. 

e Recover data "lost" after a Cold Start. 


€ Store three times as much text on each cassette (500K per 
60' cassette). 


e Access cassette files three times as fast. 


This totally NEW concept is from MinSof™ — which is committed 
exclusively to developing software for laptop portables. 


Organization, Dealer, and all other inquiries: Send stamped, self- 
addressed envelope for quickest response. 


$19.95 


Check or Money Order 
(Please include ZIP code) 


MinSof, Inc. 
Box 1153 
Minneapolis, MN 
55440 





Yirtual fi fied n name iig 


*Page Number. i i 
|*Record Number. 
*Line sient i 
*Delete Level | 

*Tag Status | 
Neu Statin 


EIE ES E zu 
[e oo — — IND KA GA RO 


NE is und. 

To simplify the entry of text fields, the 
full screen editor in the report generator 
will automatically insert a field identi- 
fier by pressing the tab key or CTRL-I. 
To select the field to insert, press the 
page up or down keys until the desired 
database field description is displayed 
on the last line of the screen. This 
feature is very convenient for entering 
long fields which are quite cumbersome 
to enter manually. 

While most text report fields are the 
same length as their database field 
counterparts, the field lengths can 
differ. If a report field is smaller than the 
data that is going into it, the extra 
characters are truncated from the right 
side of the string. This feature is useful 
when report fields are too large to fit on 
the defined page. 

Numeric field definitions use the 
number character (t) to signify digits in 
the field. For example, if you wished to 
define an integer with five digits as a 
report field, five number characters are 
used (HHHHH). If the field is not an 
integer but a floating point number (a 
number with a decimal point), place a 
period where you want the decimal 
point to be. For example, to define a 
monetary field, the field identifier 
HHHH.HH could be used. If a number 
that is going into this field contains 
more digits to the right of the decimal 
point, the value is rounded (34.567 is 
printed as 34.57 in our example). To add 
commas every three digits, place a 
comma in the identifier every three 
digits (HH, HHH, HHH. HH). 


Lena a 


H H Current TUR page number 
"Record number : 


| Count of printed records. | 
- Delete level of record | 


0 Asterisk (*) if "tag" set for record 


Asterisk (+) if “edit” status set 
Asterisk (*) if *new" record 


Time report started printing SHIT 
THEE Date report started. printing ` 





In addition to the special identifiers 
just described, about six additional field 
identifiers are described in the BASIC 
manual. I would suggest that you take 
a look at the PRINT USING function's 
identifiers so you can make the most of 
the report generator. 

Figure 3 shows a sample columnar 
report definition for our demonstration 
mailing list database. The first line of 
this report definition contains the vir- 
tual fields of page number and report 
date. The fifth line of the report con- 
tains the repetitive field block that 
contains that actual database field data. 
The lines 1 through 4 and Line 6 are 
defined as header and footer text re- 
spectively. 

Once the report has been defined, the 
program asks the user to define the start 
and end of the repeat block. This repeat 
block is the area in the report that is 
repeated for each record until the end 
of the page is reached. In most cases, 
this block contains only field defini- 
tions, but sometimes also includes text 
that will be repeated each time the block 
is repeated. This feature allows lines to 
be inserted between record blocks, 
double spacing of reports, etc. 

The last step in generating a report 
involves joining a report field with a 
database field. In this process, the 
program displays one of the fields 
defined in the report. The computer 
then asks which database field describes 
the report field. Just like with most of 
the other sections in the database, the 
database field is selected by pressing the 
space bar after the field has been found 


. Figure a 


using the up and down arrows. If the 
program mistakes a group of text in the 
report definition for a report field, the 
report field can be skipped by pressing 
ENTER. This happens quite often when 
number signs (tt) are used to abbreviate 
report headings. 

Once the report fields have been 
joined to a database field, the report has 
been generated and is selected as the 
current report. 


Other Report Functions 

In most databases, there are at least 
two reports defined for a single data- 
base. To facilitate multiple reports, 
DBII’s "Change Report" function 
allows other report definitions in the 
database to be selected and used for 
printing. 

If a report is not going to be needed 
anymore, the "Kill Report" function 
will erase a report from the database 
system. If the currently selected report 
is deleted, remember that a new report 
needs to be selected or created. 

Once a report and output driver have 
been defined and selected, the Print 
Report function can be used to print a 
report defined by the report generator. 
When this function is invoked, the 
program asks if you wish to print by the 
find paramaters or by the "tag," *new 
record" or "edit flags." If you respond 
with a ‘Y’ to any of these prompts, only 
the records that match the selected 
qualification will be printed. For exam- 
ple, if you print by find and tag parame- 
ters, only the records that meet both 
requirements will be printed. 

After these questions, the program 
asks for the access level of the report 
and asks if you wish to pause between 
pages (for single-sheet paper or output 
to the screen). Just like in the Edit/ View 
Database function, increasing the ac- 
cess level allows records that have been 
deleted with delete levels lower than or 
equal to the access level to be printed. 
Once all of these questions have been 
asked, the program proceeds to print 
the report. 

The find parameters used in the Print 


Report function are defined by the "Set 


` Sample Column report Definition jiii: 


Report Date: NU Him neb BRIN 





N He 
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Find Parameters” function. When this 
function is invoked, the program asks 
for the field to be searched and the text 
to search for. The program then asks 
which of the five relations should be 
used. 

The first three relations describe three 
types of equivalent operations. The 
first, “absolute equivalent,” is true when 
the search data and the database data 
are identical in every way. The second 
operation, "left part equivalent," is true 
when the search data is equivalent to the 
left part of the database data. For 
example, if the search data for this 
relation was an ‘A’, any database data 
beginning with an ‘A’ would be consi- 
dered equivalent. The last operation, 
"instring equivalent," is true when the 
search data is found somewhere in the 
database data. For example, if the 
search data for this relation was ‘B’, any 
database data with a 'B' in it would be 
considered equivalent. These three 
equivalence operations are only effec- 
tive when alphanumeric, alpha-only or 
time fields are searched. With numeric 
or date comparisons, any three of these 
operations will yield an absolute equi- 
valent operation. 

The last two operations, less-than 
and greater-than, as the name implies, 
are true when the search data is less than 
or greater than the database data. Both 
of these relations are based on the entire 
string. 

Once the relation has been set, the 
above processes can be repeated for 
multi-field searches. 


Help Functions 
Throughout DB11, support for help 
files has been added to aid the user in 
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using the database without additional 
manuals. All of the help files available 
in DBII are ASCII text files stored on 
the default drive with the extension 
-HLP. Table 3 lists the help filenames 
along with a description of where the 
help file is made available. 

When a help function is invoked, the 
subroutine at Line 50900 attempts to 
load in the selected help file and print 
it on the screen. If the help file is not 
available, a warning message is printed 
and control returns back to the area 
where the help was invoked. 

Ifthe help file is available, the text file 
is printed on the screen until a ‘\’ 
character is found in the file or the end 
of the screen is reached. At that point, 
you are prompted to press any key to 
continue. The W' character allows some 
formatting control of the help files by 
letting you control where the pages 
break. 

For a help file to be printed correctly 
on the screen, a carriage return must be 
present on every line (every 80 charac- 
ters) of the file. 


Future Enhancements 

As you look through the code of 
DBII, you will probably see that a lot 
of organization has gone into its general 
structure. Variables, subroutines and 
files are given consistent definitions 
throughout the program. 

This structure was not added just to 
make the program easy to read. The 
primary reason for the consistency and 
the extended use of subroutines is to 
add an easy upgrade path to future 
systems. 

For example, DB2, DBII’s bigger 
brother, replaces the current random 
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block disk I/O routines with ISAM file 
routines. Adding these file routines only 
requires replacing the subroutines at 
lines 50200 and 50300, and making a 
few alterations to the Sort Database, 
Organize Database, and Print Report 
functions. That's it! 

Because of the flexibilty of expan- 
sions with DBII, many new functions 
can be added relatively easily. Some of 
these new functions are Lotus 1-2-3 
interfaces, math functions for the report 
generator, ISAM file structures, binary 
tree indexes on all fields for nearly 
instantaneous searches and sorts, rela- 
tional capabilities, more functions for 
the Edit/ View mode, remote terminal 
access to the database, password pro- 
tection and much more. 

The amount of extentions to DBII 
that I publish, however, is proportional 
to your interest. If you are interested in 
seeing some of these added functions, 
drop me or PCM a letter expressing 
your interest. 


End Notes 

In January, PCM started offering 
programs that were published in their 
magazine on disk through a service 
called PCM on Disk. As you would 
suspect, all of DBI/ will be published 
in the February PCM on Disk. In 
addition to the actual program, help 
files, documentation files and technical 
data will also be included on the disk. 

In next month's Subroutine City, I 
will describe how to compile DBII. 
Since DBII primarily uses integer 
variables, most functions increase in 
speed by a factor of at least four. The 
only exception to this is disk intensive 
operations (like sorts) which are limited 
by the speed of the storage device. 

This installment ends this two-part 
series on the DBII database system. I 
hope that you find it as useful as I have 
in the past few years for handling light 
database applications. If you have any 
questions about DB11, MS-DOS, 
Xenix or the Tandy 1000 through 3000, 
please drop me a note and I will try to 
help in any way I can. Please include a 
self-addressed stamped envelope for the 
reply. D 
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Wondering where to grow? 


Why not get IBM compatibility with 
Tandy's 1200, or the new 3000, and 
take your OS-9 programs with you? 


TLM's PC68K puts the 68000/68010 
processor and Microware's OS-9 
together in any IBM, or compatible, 
PC/XT/AT system, providing the 
best of both worlds with fully 
concurrent PC / 68000 operation. 


e Powerful languages such as 
BASICO9, PASCAL and C 

e DYNACALC for spread sheet 
processing 

e The power of the 68000/68010 
e The price/performance and 
flexibility of the Tandy 1200 
and 3000 

TLM's PC68K. . .A great family 
to grow up Kb. 


dicione ark of Internatio: 
DYNAGALGIs red tri varies GE ompu vie r System hoy ale 
f Mic 'e Systems Corp. 
MAT ar ed raden a erp 
t t 
ea red trademark of AT&T. 








CLOCK SPEED 
8/10/12.5 MHZ 
Without wait states 


HARDWARE 

2 Parallel Ports 

3-9 Serial Ports 

68881 Floating point co-processor 
(optional) 

Memory mapped dual port bus for 
high speed DMA transfers 

Real time clock with battery 
backup 

Up to 16 boards can run con- 
currently from one AT/XT/PC bus 


MEMORY 

1-2 MB OF RAM 

(1 MB on board standard) 

8K-32K of ROM 

2K-8K of battery backed RAM 

MULTI-USER 

3-9 users (3 standard) 

High speed "Tick" timer with 10ms 
accuracy for efficient multi-user 
time slicing. 


TLM Systems 


West: 4704 W. Jennifer Suite 105, Fresno, CA 93711 209/276-2345 


OPERATING SYSTEMS 

OS-9 (Multi-user UNIX look-alike) 

C/PM-68K (popular single user OS) 

Both support concurrent access 
to PC DOS 


SOFTWARE 

Software selectable OS 
environment 

IBM Color/Mono Graphics Support 

Local and Global disk caching for 
maximum speed and efficient 
data transfer 


COMMUNICATIONS 

Powerful asynchronous/ 
synchronous data 
communications capability 

Bisynchronous SNA 3270, X.25, etc. 

MISCELLANEOUS FEATURES 

Remote and Local reset (hardware 
or software selectable) 

Remote and Local Non-maskab! 
Interrupts (NMI) 

Stand alone hardware capabi 
(without AT/XT/PC suppor: 


I East: 67 Grandview Avenue, Pleasantville, NY 10570 914/747-1450 


From Computer Plus to YOU... 


PLUS after PLUS after PLUS 


Tandy 200 24K $649 
Model 100 24K $425 


Smith Corona L-4000 
$259 


| TANDY 


Tandy 1200 HD $1599 
10 Meg. 256K 
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Color Computer II 
w/64K Ext. Basic $179 


Tandy 1000 $710 
Tandy 1000 HD $1539 


DMP405 $160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 4 Drive 128K 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 10 Meg. 256K 
Tandy 2000 2 Drive 256K 
Tandy 2000 10 Meg. 256K 
Model IVD 64K with Deskmate 
PRINTERS 

Radio Shack DMP-130 269.00 
Radio Shack DMP-430 660.00 
Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-100 Portable — 229.00 
Silver Reed EXP-550 Daisy Wheel400.00 
Star SG-10 245.00 
Star SG-15 410.00 
Star SD-10 365.00 
Panasonic P-1094 259.00 
Toshiba 354 4175.00 
CITOH Prowriter 8540AP+NLQ 345.00 
Okidata 192 375.00 
Epson LX-80 245.00 
Epson FX- 85 369.00 
Epson HS-80 Portable Ink Jet 339.00 


710.00 
1539.00 
1599.00 
1295.00 
2025.00 

889.00 


Tandy 1000/1200 ACCESSORIES 
Tandy 1000 Disk Drive Kit 159.00 
Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 249.00 
256K Ram Board (inc. 128K & DMA)199.00 
512K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (428K) 259.00 
PBJ Multi-Function Board (256K) 279.00 
PBJ Multi-Function Board (542K) 299.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 429.00 
4200 Baud Modem Board 249.00 
RS-232 Serial Board 89.00 
Digi-Mouse/Clock Board 89.00 
Tandy 1000/1200 MONITORS 

Tandy VM-2 Green Monitor 129.00 
Tandy CM-2 RGB Color Monitor 379.00 
Tandy VM-3 TIL Green Monitor 179.00 
Tatung CM-1360 Color/Gr./Amber459.00 
Tandy 1200 Text Monitor Adapt. 179.00 
Tandy 1200 Color/Graphics Adapt199.00 


CALL TOLL FREE 
1-800-343-8124 


* LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 
SHOPPING CONVENIENCE 


P.O. Box 1094 
480 King Street 


Littleton, MA 01460 


MODEMS 

Radio Shack DCM-3 Modem 52.00 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 
Hayes Smartmodem II 300 Baud 169.00 
Hayes Smartmodem 1200 Baud 429.00 
Novation J-Cat 300 Baud 115.00 
FOR EVERYONE 

Network Four Outlet Surge Prot. 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
C-20 Digital Cassette Tapes (10pk) 9.95 
Verbatim SSDD Plastic Box (10pk) 24.95 
Verbatim DDDD Plastic Box (40pk) 29.95 
Generic SSDD Diskettes (10pk) 17.95 
NEC 64K Ram Chips (set of 8) 39.00 
Radio Shack 16K Ram Chips (8) 25.00 
Locking Disk Box (holds 70) 19.95 
Flip N File Disk 50 15.00 
Fanfold CleanEdge Paper (2600) 35.00 


69.95 


Radio Shack software 10% off. 
Send for complete listing of 
brand name software and hardware. 


SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 








WELT Barden's Buffer 


Contrasting and Comparing 


BASIC, PASCAL and C 


1000/ 1200/ 2000/ 3000 


In Defense of Other 


By William Barden, Jr. 
PCM Contributing Editor 


December issue of PCM and was 
looking over the column entitled 
"In Defense of BASIC." Hmm. . . maybe 
I was a little strong in extolling the 
virtues of BASIC over other languages. 
The doorbell rang just then, and I 
stuffed the magazine under my arm and 
opened the door. I was greeted by two 
men, each with a copy of the December 
issue of PCM under their arms! One 
was dressed in a gray suit with blotches 
of chalk dust over the sides and back. 
The second was bearded and much 
more casual — he wore a tee shirt 
emblazoned with “Babbage Lives!", 
cut-off shorts and New Balance 470 
running shoes. 
*Are you Bill Barden?" gray suit said. 
I admitted to it. 
*My name is Doctor Proctor, and this 
is Stan Smith. I teach computer science 


Tr: just received my copy of the 


(William Barden, Jr. is a master com- 
municator in a field in which he is one 
of the few recognized experts — micro- 
computers. A prolific author of more 
than 27 books on computers and com- 
puter programming, Bill also has au- 
thored several instructional software 
projects for Tandy/ Radio Shack.) 


Languages 


at Twin Peaks Community College and 
Stan is a systems programmer at Digital 
Data Communicomm Systems Com- 
pany. We'd like to discuss your frivolous 
article in this issue of PCM," he stated, 
waving the December issue under my 
nose. 

“Frivolous?” I bristled. 

“Well, yes. You really didn’t give 
other languages a break. We’re here to 
set the record straight.” 

Gritting my teeth, I invited both 
gentlemen in, and we spent the after- 
noon comparing notes about three 
languages. Dr. Proctor was an advocate 
of PASCAL, a language very popular in 
academic circles and taught at many 
colleges and universities. Stan was a 
champion of the C language, a language 
touted as being good for systems pro- 
gramming work. I, of course, was the 
enemy — an advocate of BASIC. The 
result of the discussion is presented 
here, an overview of PASCAL and C, 
contrasted with BASIC. 


An Overview of Languages 

As I mentioned in that article on 
BASIC, there have been many computer 
languages used for various computers 
over the past 30 years that digital 
computers have been used. Some back- 


ground is helpful before getting into the 
mechanics of PASCAL and C. 

The first language was machine lan- 
guage, coding in binary ones and zeros, 
or in octal or hexadecimal notation, 
“shorthand” versions of binary. Grace 
Hopper, chief developer of COBOL, 
maintains that nobody could code a 
string of more than about 30 ones and 
zeros without introducing an error, and 
this is largely true. For that reason, 
assembly language soon replaced ma- 
chine language for coding. In assembly 
language, the binary or octal codes were 
replaced by more English-like mnemon- 
ics such as ADD for addition of two 
numbers and SRL for “Shift Right 
Logical.” An assembler program acted 
as a translator in automatically trans- 
forming the symbolic assembly lan- 
guage into the equivalent ones and zeros 
of machine language. 

However,. assembly language was 
(and is) a very tedious language in which 
to code. In the late '50s, Backus of IBM 
developed the first “higher-level” com- 
puter language, FORTRAN. FORTRAN 
was very much geared to solving math- 
ematical problems; the name itself is an 
acronym for “Formula Translator.” A 
typical FORTRAN statement might look 
like this: 
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A = -B + SQRT(B**2 — 4*RXC)^ 
(2*R) 


FORTRAN was an instant success — it 
was a great deal easier to code in FOR- 
TRAN format than to write long strings 
of assembly language instructions. 
Today, FORTRAN is still used by many 
companies that do scientific processing. 

FORTRAN was followed by a business 
language called COBOL (Common Busi- 
ness Oriented Language) in the early 
'60s. At the time, there was some ques- 
tion just how well computers could 
process business applications such as 
billing. COBOL, however, proved enor- 
mously popular, and remains so, espe- 
cially in *mainframe" environments. A 
typical COBOL statement is very 
“English-like” and might appear as 


MOVE NEW-PURCHASES IN THIS- 
MONTH TO PURCHRSES. 


WRITE NEW-BALANCE-1 AFTER RD- 
VANCING TWO LINES. 


A succession of languages soon ap- 
peared. PL/I (Programming Language/ 
I) was developed by IBM and attempted 
to combine the best features of FOR- 
TRAN, COBOL and ALGOL, the last being 


T 


The Handicapper 


C AL 


an “algorithmic language." BASIC was 
also developed early in the computer 
game by two Dartmouth college profes- 
sors, Kemeny and Kurtz. There were a 
host of others, including LISP (List 
Processing), RPG (Report Program 
Generator) and JOVIAL (Jules’ Own 
Version of an International Algorithmic 
Language). 


PASCAL Rears its Head in a Cloud of 
Chalk Dust 

PASCAL also appeared early in the the 
history of digital computers. It was 
developed in the late 1960s by Professor 
Niklas Wirth of Zurich as a language 
suitable for teaching programming. 
PASCAL has its roots in the aforemen- 
tioned ALGOL language, a language 
geared to cleanly implementing pro- 
gramming algorithms. PASCAL was, to 
coin a phrase, *modular and well struc- 
tured," meaning that a typical program 
might be composed of blocks of code 
made up of smaller blocks of code and 
that each block had a well-defined, 
straightforward structure. 

PASCAL remained relatively obscure 
until the late 1970s when a University 
of California San Diego professor, 
Kenneth Bowles, developed a micro- 
computer version of PASCAL called 


UCSD PASCAL. This implementation of 
PASCAL was fairly “portable” — it could 
be moved from one system to another 
by writing a short "interpreter" that 
translated a “pseudo-code” into the 
machine code used by the system on 
which the language was to run. 

Because of UCSD PASCAL and other 
factors — an overall crisis involving 
unreadable and unmaintainable pro- 
grams in industry and a true need for 
a good language to introduce students 
to computers — PASCAL became very 
popular in academia and remains so 
today. 


C? Si! 

Sorry, my first and last pun on C... 
C was developed in the 1970s as part of 
the Bell Telephone Labs Unix Operat- 
ing System. As a matter of fact, almost 
all of Unix was written in the C language 
as are similar projects done by current 
systems software developers, such as 
Microsoft. 

C has much of the same structure and 
appearance of PASCAL, but has more 
capability for *twiddling bits" — per- 
forming operations on a bit level, such 
as testing, masking, and shifting bits. C 
spans more of a range of functions than 
PASCAL and other higher-level lan- 
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Give your Model 100 


128K 








AM 


Installs as easily 


as plugging 
in a socket 





Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 


PCSG says: Satisfaction guaranteed or your money back 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM +, that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


within 30 days 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 





Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM - lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank's entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don't 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG: 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering/ 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That's why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 


1-214-351-0564 





PORTABLE COMPUTER SUERORT ORUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 
VISA / MASTER CARD / AM. EXP. / C.O.D. 





guages — it offers many of the same 
higher-level capabilities, but also allows 
a programmer to get his hands dirty on 
a systems programming level. 

Both C and PASCAL are currently 
among the most popular languages for 
microcomputers. Looking in *RSC- 
15," the 1986 Radio Shack Computer 
Center catalog, for example, you'll find 
a COBOL, FORTRAN, PASCAL, C and 
BASIC compiler, along with a Macro | HH nn 
Assembler package. That just about |: "What di enaifirut Wedel log. | 
says it all for current language popular- | What is the second value? 299. 
ity. "The sum of 1ØØ and Had indi 

Let's look at the structure of PASCAL | 
and C by comparing how things are 
done in those two languages versus 
BASIC. I’m assuming most of you are |. Var 
familiar enough with BASIC to follow 
the program logic, and you'll be able to 
understand the PASCAL and C versions 
relative to BASIC. At the end of this 
article, you'll have a good overview of ‘readin (Operand2) i 
how things work in PASCAL and C and Total i= Operandl + Operand2; 
it'll keep Proctor and Smith from ap- | HEN (The sum ‘of |, | Operandl: idi 
pearing on my doorstep again. uir dst; Total sl): i 

end, dM 


“Figure 1. Input/Output Examples Hui 


BASIC: 


ii LAA INPUT "What is HE linia value?” 
11Ø INPUT "What is the ‘second value?"; 
129 TOTAL = OPERANDI + OPERAND2 
(139° PRINT "The sum Of m ` ORERANDI ; 

| TOTAL. i 


i PASALI H 


Operandi; Operand?, Total : | integer: 
«begin HETE EEE 
write (' What. is the [pun value? an 
readln (Operandl); i 


‘write ('What is the od value? BOT 








Input and Output 

Fi: I shows an example of a 
simple input/output program writ- 

ten in the three languages of BASIC, 

PASCAL, and C. Looking at the BASIC 


ihat ds the PURUG WEINI 199 
(What is the second: value? 29g 
(The sum of 199 and 299 is 39g: 
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version first, you can see that two values 
are input and assigned to variables 
OPERAND1 and OPERAND2. Variable 


TOTAL is then set equal to the sum of HAS aud PR 
OPERAND1 and DPERAND2. Finally, the HER: cn Miele 
two operands and the result are dis- IRH iii n perandt) 


played. The INPUT and PRINT key- 
words are used for input and output 
respectively. The program is in the 
familiar “line number” format of BASIC, 
with each statement preceded by a line 
number. Some versions of BASIC dis- 
pense with line numbers totally or 
partially, but we'll use the standard 
Microsoft MS-DOS version. 

The following program performs the 
same functions in PASCAL. The PASCAL 
reserved words readln and uriteln 
are roughly equivalent to BASIC INPUT 
and PRINT. The assignment of a varia- 
ble to an expression is done in almost 
identical fashion, except that PASCAL 
uses a ":-" (colon and equal) in place 
of just an "=” (equal) sign. Another 
thing you might notice is that PASCAL 
sets off statements by “begin/end” 
blocks and optional indents for clarity. 
Finally, PASCAL uses a “Var” section in 
which variables are defined. In this case 
variables Operand1, Operand2 and 
Total are defined as "integer" varia- 
bles, meaning that they can hold whole 
number values from -32,768 through 
*32,767. PASCAL is a "strongly typed" 
language, meaning that all variables 
must be defined as certain variable types 
— integer, real (same as BASIC single 
and double-precision), character and 
others. 

The third version of the program also 
produces the same result. The structure 
here is somewhat similar to PASCAL. 
The left (f) and right (]) braces define 
a begin/end block of code. The scanf 
and printf reserved words are analo- 
gous to uriteln and readln of PAS- 
CAL or INPUT and PRINT of BASIC. 
Variable Total is set equal to the sum 
of Operandl and Operand2 by an pg dd ae 
equals sign, the same as BASIC. As in Á n 
PASCAL, variables Operandl, Ope 
rand2 and Total are defined as integer 
variable types by the “int” line. One 
thing that might not be obvious is that floa Ë Diff, Product, Quotie 
certain special characters — the “%d” | t rs separated 
characters in the scanf and printf lines &C) 

— act as "place markers" in defining 
where the following operands are to be 
input and displayed. 
Simple Computation 

Figure 2 shows a second program 
written in the three languages. In this 
case the program performs simple com- i t 
putations on three numbers that are |: | gggge 
input — the sum of the three numbers i HE Vu 


HH 


rema 


i 
4 





HØR: ERR: BUR 
Sd 


mir 
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(A + B + C), the difference of the three 
numbers (A-B-C), the product of the 
three numbers and the quotient of the 
three numbers (A7870). 

In the BASIC version, the logic is 
straightforward. First, the three 
numbers are read in by an INPUT state- 
ment. Variables SUM, DIFF, PRODUCT 
and QUOTIENT are then computed. 
Finally, the SUM, DIFF, PRODUCT and 
QUOTIENT are displayed by a PRINT. 

In the PASCAL equivalent, the same 
sequence of steps are taken, with the 
code being set off by a begin/ end block. 
Prior to the code, variables A, B, C, Sum, 
Diff, Product and Quotient are 
defined in a "Var" section to be "real" 
numbers. Real numbers, also known as 
"floating point" numbers, are the same 
as BASIC single- and double-precision 
numbers — they can be mixed numbers 
with integer and fractional parts, such 
as 34.56, 0.0056 and -56E-5, the latter 
is a form of scientific notation. 

The result of the PASCAL program is 
expressed in floating-point format, a 
mixed number with an *E" and power 
of 10. The first result, for example, 
stands for 1.047 times 10 squared (1.047 
x 100 or 104.7), the same as the BASIC 
result. We could have easily displayed 
the results in a fixed format (such as 


Ë Figure 3. Program Structure | 


“tpg Hele FP to compute | area and perimeter ót tríanglexs | 
11Ø GOTO 219 Hu 

HEPA Compute Area Bübroub Mié 

15139; TEMP. -m5 % BASE * ‘HEIGHT 

INEA: PRINT "Areact; TEMP 

)/159 RETURN ^ Å | 

ren "t Hin Perimeter Subroutine | 


290 i Main ME H i 
21g PRINT "Enter Side, NDS “Heigher 
5:229; INPUT: 'SIDE, BASE, MARNE: 
239 GOSUB 139 ` 
1249: GOSUB 17Ø 
ABA RND 





jn Sn Side Base, hetene 
it 4:8; 75 jd 16 
| dll 


Fetinecers 1 16, 8. y" TH 





TT Program to | compute. area and perimeter « of triangle *) 
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Quail Canyon Mailing List — This superbly easy to 
use product handles 1000 names, most any kind of 
labels, and will sort 1000 names in less than 30 
seconds. $34.95 

Renaissance — Every game is different as you try 
to gain power in medieval Italy. If you like Monopoly 
or Risk, you'll love this. 1-4 players. $34.95 

Quail Canyon Horoscope — Calculates your 
complete horoscope including houses in four 
systems. Extremely accurate. $29.95 

Other Programs — Educational Package, Invoicing, 
Gradebook, Service Club Membership and Billing, 
Church Package, Scouting Package, Bowling League 
Package. 

Things You Should Know — We trust our cus- 
tomers. Our disks are not copy protected, we don't 
delay orders for personal checks, we ship COD, we 
ship fast, our programs are all fast COM or EXE files 
(no slow BASIC interpreter), our software is great, 
our prices are low, and we'll return your money if 
you're not happy. 

Send for our Free Catalog or order by phone, by 


mail, or by EMAIL on Compuserve to 
70076,1463 or on Delphi to QUAIL. 


Quail Canyon Systems «+ (602) 885-2288 
8532 E. 24th Street e Tucson, AZ 85710 
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Y MY WORD!® is a full-featured word processor 
with mergeprint, calculator, macros, undelete, 
utilities, graphics, sort; supports any printer. 
Printed, 180-page manual; faster than WS, with 
many new features. Price: just $35! 

v SCC is a spelling checker; see your errors in 
context and correct them. Add new words any 
time. Price: just $25! 

MY WORD! and SCC run on IBM PC, Tandy 
1000/1200/2000, Sanyo 550/555 or higher with 
DOS 2.1, 128K, one drive. 

v THE CREATOR: a database program and 
report generator. Sorts up to 50 keys! 200 fields, 
2816 bytes/record. Select records for use with 
MY WORD!! and print labels or letters. Price: only 
$45! 

v THE CREATOR runs on IBM PC, Tandy 1000/ 
1200/2000 or most compatibles. (Not available 
for SANYO BASIC). 

30-day money-back guarantee; return for 
refund if not satisfied. 


T.N.T. SOFTWARE, INC. 
34069 Hainesville Road 
Round Lake IL 60073 
(312) 223-8595 








104.7) by a slightly different way of 
specifying the variable in the writeln 
(Sum:1:1). 

In the C equivalent, a similar se- 
quence of steps is followed, with scanf 
and printf being used in place of the 
PASCAL readin and writeln and BAS- 
IC's INPUT and PRINT. As in the PASCAL 
program, the variables A, B, C, Sum, 
Diff, Product and Quotient are first 
defined as floating-point (same as real 
variables in PASCAL or single precision 
in BASIC). As in PASCAL, the output is 
in floating-point format, which tends to 
spew out a lot of digits. Here again, the 
results could have been formatted to 
make their appearance closer to the 
BASIC version, 

Note that all three languages use the 
same characters to represent simple 
arithmetic operations — a plus sign (+) 
for add, minus (-) for subtract, asterisk 
(*)for multiplication and a slash (/)for 
division. 


Program Structure 

Figure 3 shows a program that com- 
putes the area and perimeter of a trian- 
gle, given the side, base and height. It 
illustrates the comparative overall 
structure of the three languages. 

The BASIC version of the program 
uses two subroutines, one to compute 
the area and one to compute the perime- 
ter. These are called from the “main” 
program, which first inputs the side, 
base and height values and then calls the 
two subroutines to compute the results 
and print them. The first active line in 
the program is GOTO 210, which jumps 
over the subroutines, stored at the 
beginning of the code. The program 
could have simply used “in-line” code 
without subroutines, but this layout 
allows a better comparison with PASCAL 
and C structure. 

The PASCAL version of the program 
produces the same results as the BASIC 
version, but with a somewhat different 
structure. Subroutines in PASCAL are 
called “procedures,” and a large PASCAL 
program will be made up of many 
different procedures at several levels. In 
the PASCAL version, there is one proce- 
dure called ComputeA which computes 
the area and a second called ComputeP 
which computes the perimeter. The 
code within the procedures are blocked 
off by begin and end. The “main” code 
in the PASCAL program — the code 
which “drives” the program — makes 
up the third section. 

Each procedure not only has code, 
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” 


but may also contain its own “Var 
section in which variables that are used 
only in the subroutine are defined. 
These variables are called “local” vari- 
ables. One of the ground rules in PAS- 
CAL is to avoid horrendous collections 
of “global” variables which are changed 
by many different parts of the program. 
Having local variables helps keep the 
variables straight. Global variables, 
those which are accessible from any- 
where within the PASCAL program, are 
defined by a beginning “Var” section. 

Comments within a PASCAL program 
are set off by parentheses and asterisks 
as in (* This is a comment *). Com- 
ments can be put anywhere within the 
program and may extend over many 
lines. 

The C version of the program is 
shown in the last part of the figure. It 
is structured similarly to the PASCAL 
version, having two “functions” that are 
analogous to BASIC subroutines or 
PASCAL procedures. The main portion 
of the program is the function labeled 
main, and the two other functions are 
compute area and compute perime 
ter. All code is blocked off by left and 
right brackets as before. Local variables 
are defined in the functions as in PAS- 
CAL. In this case we've used a floating- 


point variable Temp in both functions, 
and the three global variables Side, 
Base and Height. 

Comments within a C program are 
denoted by “”*’(slash and asterisk) as 
in /* This is a comment *7, Like 
PASCAL, C comments can extend over 
any lines. 


The most obvious differences be- 
tween the structure of BASIC and the 
other two languages are line numbers in 
BASIC and their absence in PASCAL and 
C. Therein lies a tale. A major contro- 
versy raged for many years and is still 
raging about “structured program- 
ming.” The BASIC GOTO statement, 


| (198. giclee HB to find factorials > sole 


"uu. PRINT "Enter number sÍ 
Lg: INPUT. NUMBER inm 
Iis øl 
iH 14g ‘RESOLD 4 = ig HHH 

59: WHILE (WNUMBER > ø). 





DATA-BASE 


Written and Distributed in BASIC Source-Code 


= All progs and mods are BASIC source-code (you can modify) 
= Supports fixed and variable-length records from 1 thru 252 bytes long 


feani Fag UNBRUME X [NNUNBER : 





YOU ALREADY HAVE 


= Key may be anywhere in data record (key-only records ok) 
= Re-uses deleted space, never needs reorganizing 

= Complete documentation and a discussion of Data-Base concepts 
= Can be used as a full production system 

m An invaluable learning aid (includes demo progs) 

= Works on all MS-DOS machines (phone for TRS-DOS info) 


HALF OF THE BEST 
WORD PROCESSING 
TEE IN THE WORLD 


CERTIFICATION 
SEAL 


DB. BAS merge into your progs to do all 1/0. Supports add, 


replace, delete, get, get-next, find, find-next. 
creates and initializes a skeleton Data-Base. 


display/print any sector deblocked char/hex with 
chains. 


DBSTATS. BAS displays statistics plus master-index chain counts. 
DBNDXREO. BAS restructures and optimizes lumpy index sectors. 
DBCMPRS. BAS physically decreases D/B disk allocation. 
DBALTER. BAS alters min/max rec-len and fixed/variable characteristics. 
DBVAL. BAS validates all index and data keys and chains. 
DBGETDAT. BAS merge into your prog to serially retrieve data records. 


more, your MultiMate, 
Display Write, WordStar, pfs: WRITE, 
VolksWriter, Writing Assistant or other WP 
Software! can zc on fourteen 
columns of text, Lå automatically 


FT < create outlines, calendars 


DBCRT. BAS 
DBDSPLY. BAS 


P 


boxed copy | and lots more. It's fun with 


Powerlext 


De. scripts, footnotes?, 


Data-Base System w/disk-resident documentation (requires printer) $49 
Same as above plus printed documentation $55 
C Printed documentation only $8 
O Postage and diskette (not required for documentation-only) $5 
*checks accepted, money-orders shipped same-day* 





Name Computer-make Model 


1 Any other MS-DOS or ASCII WP Software 


2 On the same page or end of your document FORMA TTE R 


TO ORDER, CALL OR WRITE: > BEAMAN PORTER, INC. 


417 HALSTEAD AVENUE 
HARRISON, NY 10528 

(800) 431-0007 

(914) 835-3156 IN NEW YORK 


Address Apt 





City State Zip. 


ARIES COMPUTER SOFTWARE 
25357 Ingleside, Southfield, MI 48034 





*Add $5 for Shipping and Handling. 
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which, of course, transfers control 
anywhere within a BASIC program, is 
considered by many to be "harmful." 
We discussed this in the earlier column, 
pointing out examples of "spaghetti 
code" in BASIC which used GOTOs all 
over the place. A programmer can never 
easily follow the flow in such a program. 
PASCAL and C, in their pristine states, 
do not have GOTOs. There is no way to 
transfer control to another part of the 
program directly. This is workable as 
we'll see in the next section on looping. 
One of the main purposes of BASIC line 
numbers, though, is to enable altera- 
. tions of the sequence of execution of 
| programs. Without GOTOs, line numbers 
are not really necessary — subroutines 
are named in PASCAL and C and invoked 
by name rather than line number. 
Another feature that makes PASCAL 
and C easier to follow is the use of 
indentations. PASCAL and C are free- 
format languages — spaces are ignored - Hn 
and indentations can be used or not "ems Í "ih ILI Hn) 
used. However, indenting for various n s; ETE 
levels and structures makes the code 
infinitely more understandable than 
BASIC listings, unless those BASIC list- 
ings also use indentations. Along with 
the indentations, PASCAL and C pro- 
grammers are encouraged to use only 
one statement per physical line. This is 
in opposition to many BASIC programs 
that contain code like this: 





100 GOSUB 10000: A(I)=A(I+1): 
KEY=1: GOSUB 12000: IF LAST=A 
(1+2) THEN GOSUB 12000 ELSE 1350 


Looping 

Figure 4 shows a fourth set of pro- 
grams that find factorials of a number. 
(The factorial of the number is a simple 
function equal to the number times all 
preceding integers — the factorial of 
six, for example, is 1x2x3x4x5x6, or 
720.) 


In the BASIC version of the program, 
two calculations of the factorial are 
|. done, one implemented by aFOR...TO 
loop and the second by a WHILE loop. 

The FOR ... TO loop is familiar to 
many readers. In this case it multiplies 
RESULT by COUNTER and sets RESULT 
for COUNTER values from one through 
the number in question. The loop is 
executed six times for an input value of 
six, successively producing 1x1, 1x2, 
2x3, 6x4, 24x5, and 120x6 for RESULT. 

The WHILE . . . WEND loop may not be 
familiar to all readers. It is a recent 
addition to BASIC — an enhancement to 
implement some of the “structured 
programming” concepts we’ve been 
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discussing. The code between the WHILE 
and WEND (While END) is executed 
while a certain condition is true, in this 
case WNUMBER not equal to zero. 
PASCAL also has a for... to loop. 
In the PASCAL version, the code after the 
for...to...do is executed in much 
the same manner as the BASIC loop. The 
uhile...doloop is also similar to the 
WHILE... WEND loop in BASIC. 


In addition to these loops, PASCAL 
has a repeat . . . until loop structure, 
another variation on the loop theme. 

Loop structures are important to 
PASCAL because of the lack of a GOTO. 
They are used in conjunction with if 
. .. then statements to provide a means 
to control the number of times code is 
repeated. Remember also that the loops 
may be nested to any level, just as in 
BASIC, providing further control. 

The third version of the program 
shows very similar for ... to and 





while loops. The differences here are 
that C uses the left and right braces ({ }) 
to mark the beginning and end of the 
code to be executed in the loop. 


Bells and Whistles for PASCAL and C 

What we've described above really 
only constitutes the basic components 
of the PASCAL and C languages. There 
are other features of both languages 
that should be considered. 


Arrays 

Both PASCAL and C allow numeric, 
character and multi-dimensional ar- 
rays, just as in BASIC. PASCAL and C are 
more flexible than BASIC in the ways 
arrays can be accessed, however. In 
addition, C allows arrays to be redefined 
in size dynamically (while the program 
is running). 


User Data Types 

Both PASCAL and C allow definition 
of user data types, a powerful feature. 
For example, you might define a data 
type "direction" to contain the values 
north, south, east and west: 


enum direction north, south, 
east, west ] /* C x/ 
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or you could have the user data type 
“month:” 


var Month : (January, February, 
March, April, May, June, July, 
August, September, October, 


November, December); (* Pascal 
*2 


Recursive Code 

Both PASCAL and C allow recursive 
code. Recursive code calls itself. A 
PASCAL function, for example, can call 
itself until some terminating condition 
is reached. This is very handy for certain 
types of mathematical processing. In 
the code in Figure 5, Power invokes 
itself until N = 1. 


Linked Lists 

PASCAL and C also have provision for 
manipulating linked lists and tree struc- 
tures by the use of list pointers and 
“indirection.” 


Bit Operators 

C has bit operators — “ands,” “ors,” 
“exclusive ors,” “ones complement” and 
“shifts” — that allow processing of 
fields and bits of data. This is especially 
handy for system programming appli- 
cations. 


Which Language is Best? 

You can see from the foregoing that 
PASCAL and C offer some interesting 
features over BASIC. But which lan- 
guage is best? In all honesty, it’s hard 
for most people to be objective about 
languages — it’s rather like the “Fords 
and Chevrolets” arguments teenagers 
have. We’ll say right at the start that no 
one language is that much better than 
the others. Chances are if you switch to 
PASCAL or C (or FORTRAN or COBOL) 
from BASIC, you won't find that you've 
discovered the ideal language for your 
needs. About the best you can hope for 
is that you’ve found one that you feel 
comfortable with and that fits your 
needs more precisely. 

We could list in detail various factors 
about each of the languages, giving each 
a weight. Let’s consider three points 
here that I feel really determine how 
useful a language is: 


€ Ease of Compilation. 
e Programming Efficiency. 
e Speed of Execution. 


Ease of Compilation 

I mentioned in the previous column 
that BASIC might be a good choice 
simply because it’s there! It’s easy to 
load and use and comes with the system 
disk on Tandy MS-DOS systems. As it 
is an interpreter, it’s also very interac- 
tive, meaning that you can easily enter, 
test and change BASIC code. The final 
debugged interpretive version can be 
compiled for speed. 

Both PASCAL and C, however, are 
compilers (although some interpreters 
are available). With a compiler, you 
must enter the program by a separate 
editor, compile the program and, fi- 
nally, execute the program. Discovering 
errors, you must re-edit the program 
source and go through the entire pro- 
cess again. It doesn’t sound like too 
much of a chore, but in practice the 
extra seconds it takes to go through the 
loading, compilation and execution 
process can be a definite drag over 
BASIC. 

One of the solutions to this is a 
product called Turbo PASCAL by Bor- 
land International. Turbo PASCAL (or 
simply “Turbo” as it’s affectionately 
called) offers a very convenient environ- 
ment in which to run PASCAL. With 
Turbo, you can switch instantaneously 
between the editor and compiler, elim- 
inating much of the delay usually asso- 
ciated with a compiler. Compilation is 
extremely fast. The whole package is 
integrated, speedy and well docu- 
mented. If that weren’t enough, the 
price is only $69.95! I’ve run the PC 
version on the Tandy 1000 with no 
problems and can heartily recommend 
it. No comparable package exists for C, 
to my knowledge. 


Efficiency in Producing Code 

Let’s face it, programming is tough 
work! Commercial standards are 10 to 
20 assembly language instructions or 60 
to 100 higher level language instructions 
per day when all documentation, testing 
and debugging is considered! It be- 
comes a necessity, therefore, to use a 
language in which it is easy to program. 
But there’s another factor as well — 
program maintenance. Analysis of 
programming budgets shows that 90 
percent of the money spent on in-house 
software is spent on program mainte- 
nance — finding and correcting pro- 
gram bugs after the “final” version of 
the program, or modifying or adding to 


an existing program. There's no ques- 
tion in my mind that I would much 
rather maintain PASCAL or C than BASIC 
code. It's simply easier to wade through 
than "spaghetti." 

But back to the original question. Is 
PASCAL or C easier to code in than 
BASIC? My gut feeling, backed up by test 
cases, is that PASCAL or C is no worse 
than BASIC, but not better either. I 
believe that BASIC code can probably be 
written more quickly, but that the more 
defined structure of PASCAL or C allows 
quicker and more methodical debug- 


ging. 


Speed of Execution 

Execution speed is another major 
consideration. C is reputed to be ex- 
tremely fast in execution compared to 
other higher level languages. Certain 
versions of PASCAL, especially UCSD 


PASCAL, proceed at a snail's pace. 
Turbo PASCAL claims to be very fast. It's 
hard to get the facts. Because execution 
speed is so important for a language, we 
ran some benchmarks with three pro- 
grams using interpreter BASIC, Micro- 
soft Compiled BASIC, Turbo PASCAL 
and DeSmet C. Although not definitive, 
they do point up the general range of 
results you can expect from language 
options. I think you'll be surprised at 
some of the results in Table 1. The three 
applications used for the benchmarks 
were: 


* A 10,000-iteration loop to add, 
multiply and divide integer constants. 
e A 1,000-iteration loop to add, 
multiply and divide floating-point 
constants. 

€ A worst-case bubble sort of 1,000 
integers. 


Table 1. Language Benchmarks i 


Tandy 1000 BASIC: 
Microsoft BASIC Compiler: 
Borland Turbo PASCAL: i 
DeSmet C: 










and IBM PC 





TOLL FREE ORDER LINE 
(800) 245-6228 


HK UPGRADES" 
FOR MODEL 1200 


OUR “NEIGHBORHOOD 





i 12.0 S. IB 


1.68. 





RUM HH T 1O 


All three benchmarks were run on a 
Tandy 1000. 

As you can see from the table, there 
are some interesting results here. Both 
DeSmet C and Borland Turbo PASCAL 
seem to be very fast in comparison to 
even compiled BASIC. So much so, that 
I will think seriously about program 
development in one or the other rather 
than BASIC. Both Proctor and Smith 
were overjoyed when I admitted this to 
them during our afternoon session, 
although they did get into an argument 
over which language, PASCAL or C, 
should be the one to use. For casual 
development and short programs, how- 
ever, I'll probably stick with BASIC — 
the interpreter followed by the com- 
piler, if necessary. 

In spite of the execution speed differ- 
ences, the comparison of the three 
languages points to the fact that the 
time is ripe for a truly innovative lan- 
guage, perhaps one with artificial intel- 
ligence built in, and certainly one that 
is more user friendly than the current 
ones. 

I've gotta go, there's another group of 
irate programmers at my door, all 
holding copies of the December issue of 
PCM. See you next month, if I sur- 
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MI Feature 


An easy way to 


change printer fonts 


and modes 


A Handy Little 
Printer Setup Utility 
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By Marshall K. DuBois 


How many times have you been at the 
keyboard ready to print something on 
your printer only to discover the printer 
is not set up in the special manner 
required? It's happened to me once too 
often. 

In writing this helpful little utility, I 
determined it best to have it installed 
ahead of my applications program as a 
reminder of something out of the ordi- 
nary from the printer. Perhaps you may 
want to consider using this program in 
conjunction with a STRRTER or RUTO 
EXEC file. 

The program begins by establishing 
certain function labels (115-185), then 
resets the printer to *power-up" condi- 
tions, thus insuring all new require- 
ments will be met. Each time the pro- 


(Marshall K. DuBois is President of 
Basic Software Inc. BSI is a software 
development company that specializes 
in the practical aspects of the computer- 
ization of small businesses. BSI also 
develops programs for non-scientific 
vertical markets.) 





1000/ 1200/ 2000/ 3000 


gram runs, all previous settings are lost. 

After displaying the Select Menu 
(215-230), the program waits at the 
INPUT routine at Line 20. A two-phase 
timer/counter function allows approx- 
imately 15 seconds between selections 
before sounding a long tone (first phase) 
to remind you the program is running. 
This is followed by another 15 seconds 
before the screen clears and a message 
scrolls advising you the screen protec- 
tion function is engaged. Touch any key 
and the program returns the Select 
Menu as you left it. 

Although written for a Gemini 10, the 
program may be modified to accomo- 
date most any dot matrix printer by 
changing the function labels (215-230) 
and their corresponding subroutine(s) 
(260-305) and (405-455) to the appro- 
priate control codes for your printer. 

Things to watch out for: In this 
program, selections ‘l’ and ‘6’ toggle 
(switch) between each other as do 
Selections ‘9’ and ‘0’. Selection ‘7’ may 
be used with Selection ‘2’ or ‘5’ only. 

If you want to test your setup, do a 
screen print of the Select Menu after 
making your selections. D 


USE YOUR DESKTOP COMPUTER AS A 
DISK DRIVE FOR YOUR M-100. 





` Try] Disk+ for 30 days. If you a aren't as 
excited as we are, return it for a full refund. ` 


When we duel Disk + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop's disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk -- comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. Disk-- appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the Disk+ diskette into 
the desktop's drive and turn on the com- 
puter. It powers up automatically and says 
"awaiting command" on your desktop's 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk + and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system's 
disk drive, you just move the widebar cur- 
sor to the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Model 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100's main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100's RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
by yon. 


—————— 


If you have access to a desk- 


top computer and don't 
have Disk + , then evidently 
we have done a poor job 
telling you abouti it. 


All files and programs that you load or 
save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. Disk -- is wonderful in 
so many other ways. For example, you 
can do a "save all" of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

Disk-- takes up no RAM. That's zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk + users 
is text file cross compatibility. Your Model 
1005 text files are usable on your desktop 
computer, and your desktop's text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with Disk + transfer it 


1-214-351-0564 


instantly to your desi and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk +. Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk-- works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple II, Kaypro, Epson and most CPM. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk 
they have an inexpensive disk drive. 

And if that weren't enough, how about 
this: Disk + also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses Disk-- simply 
can't do without it. But so many times we 
have had new users call us and say, 
"Wow! | had no idea when | ordered it that 
Disk+ would be so fantastic. | just 
couldn't believe that | could use my 
desktop computer's disk drive with my 
Model 100 just like it is another main 
menu." 

That's why we sell Disk+ on a thirty- 
day trial. If you aren't completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


KORTABLE GOMRUTER SURORT ORCUP 


11035 Harry Hines Blvd., #207, Dallas, Texas 75229 * 1(214) 351-0564 


PCSG provides hotline software support for the Model 100. Call us at 1-214-351-0564 
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The listing: 


doge ekson € PST) 
Y PRINTER SET UP UTILITY 

H Marshall K. DuBois - (813) 966-1252 

i 8926 Phyliss Avenue - Sarasota, Florida 33581 
t 


SSS SS SS SS SS SS SS SS SS SSS SS SSS LS SS SS STS SS SS SS TSS 


so 00 -J Ov Ui X 


" For most any computer using MS-BASIC and dot matrix printer 

19 CLS:SCREEN Ø,Ø,Ø:WIDTH 8Ø:CR$=STRING$(78,32) 

15 TB$=STRINGS$(28,223)+" PRINTER SET UP "+STRING$(28,223):GOTO 190g 
29" =PRIMARY INPUT ROUTINE 

25 TM-g:TC-19990 

39 INS=INKEY$: IF IN$<>""THEN RETURN ELSE TM=TM+1:IF TM-TC THEN 35 ELSE 39 
35 IF TM<2ØØØ THEN SOUND 555,55: TC=TC+1999:GOTO 39 

49 CLS: WIDTH 48:SCREEN Ø 

45 SR$=STRING$(33,32)+"SCREEN PROTECTION... "+STRINGS$(25,32)+"TOUCH ANY KEY TO RE 
SUME. " 

5g INS-INKEYS: IF TNS THEN GOSUB 55 ELSE CLS:WIDTH 8Ø:PRINT TB$:GOTO 229 
======ms==me==mm=m===SCROLL ROUTINE 














5 5 ' mmmm======"== 
69 I=1 

165 LOCATE 12,1 : PRINT MID$(SR$,1,39) 
79 FOR Jel TO 3Ø:NEXT J 

75 IsI+1 

‘89 IF I<=LEN(SR$) THEN 65 

85 GOTO 59 


217 h laastin naasma 











=============SELECT MENU 

LØS CL$-STRING$(61,32):LP-6:CLS:PRINT TBS 

119 GOSUB 4Ø5:GOSUB 415:GOTO 219 

115 Pl$-"«1» STANDARD" 

129 P2$="<2> PICA 19 cpi" 

125 P3$="<3> ELITE 12 cpi" 

139 P4$="<4> COMPRESSED 17 cpi" 

135 P5$="<6> ITALIC" 

149 P6$="<5> ELONGATED 5 cpi" 

145 P7$="<7> EMPHASIZED" 

159 P8$="<8> DOUBLE STRIKE" 

155 P9$="<9> SUPER SCRIPT" 

169 P9$-"«9» SUB SCRIPT" 

1/165 L3$="<L> SET LINES PER PAGE +" 

(179 E1S="<E> EXIT PROGRAM" 

175 L1$="<1> 6 lpi (66 lines/pg)" 

189 L2$="<2> 8 lpi (88 lines/pg)" 

185 L4$="<3> EXIT TO PRINTER MENU" 

199 RETURN 

195 LOCATE 13,1:PRINT CR$:BEEP:LOCATE 13,28:SN=Ø:PRINT "ENTER SELECTION  -» ";:G 
OSUB 29:SN-VAL(IN$):LOCATE 13,48:PRINT INS$:RETURN 

299 CLS:SYSTEM 

295 LOCATE 11,1:PRINT STRING$(78,223):RETURN 

219 GOSUB 359 

215 GOSUB 2Ø5:GOSUB 115 

229 LOCATE 4,1Ø:PRINT AS$(1)PI$TAB(A47)A$ (7) P7$81$; 

4225 LOCATE 5,1Ø:PRINT A$(2)P2$TAB(47)A$S(8)P8$S2$; :LOGATE 6,19:PRINT A$(3)P3S$TAB( 
47)A$(9)P9$; : LOCATE 7,1Ø:PRINT AS(4)P4$TAB(47)AS(Ø)PØS; : LOCATE 8,1Ø:PRINT A$(6)P 
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6$TAB(48)L3$: :LOCATE 9,19:PRINT A$(5)P5STAB(48)E1$:LOCATE 11,1:PRINT STRINGS(78, 
223) 
239 LOCATE 23,25 :PRINT "+ CURRENT LINES PER PAGE = "LP 
235 GOSUB 195:LPRINT CHR$(7) 
249 IF INS="L" THEN SN=11 ELSE IF INS="E" THEN SN-12 ELSE IF SN=Ø THEN SN=19 
245 ON SN GOTO 269,265,279,275,285, 289,299,295, 390, 395,315,319 
250 "SELECTION 1 2 3 4 5 6 7 8 9 Q9 L E 
LL Tg), EE ————————SET NEW PRINTER CONDITIONS 
269 LPRINT CHR$(27)CHR$(53);:GOSUB 419:GOTO 215 
265 LPRINT CHR$(27)CHR$(64);:GOSUB 415:GOTO 215 
279 LPRINT CHR$(27)CHRS(66)CHR$(2);:GOSUB 429:GOTO 215 
275 LPRINT CHR$(27)CHR$(66)CHRS(3)::GOSUB 425:GOTO 215 
| 280 LPRINT CHR$(27)CHRS(52);:GOSUB 43Ø:GOTO 215 
285 LPRINT CHR$(27)CHR$(87)CHR$(1);:GOSUB 435:GOTO 215 
299 LPRINT CHRS(27)CHR$(64);:LPRINT. CHR$(27)CHR$(69);:GOSUB 449;GOTO 215 
295 LPRINT CHRS(27)CHR$(71);:GOSUB 445:GOTO 215 
3909 LPRINT CHR$(27)CHR$(83)CHRS(9);:GOSUB 459:GOTO 215 
395 LPRINT CHR$(27)CHR$(83)CHR$(1)::GOSUB 455:GOTO 215 
319 GOSUB 295:GOTO 299 
315 CLS: PRINT TB$:GOSUB 295 
329 LOCATE 4,26:PRINT L1$;:LOCATE 5,26:PRINT L28::LOCATE 6,26:PRINT L4$;:GOSUB 1 
95 
325 IF IN$="1" THEN LPRINT CHR$(27)0HR$(5Ø):LP=6 
339 IF INS="2" THEN LPRINT CHR$(27)CHRS(48):LP-8 
335 CLS:PRINT TB$:GOTO 229 
35g '2--————————-———————————-———————————-—-RESET PRINTER TO "POWER UP" 
355 LPRINT CHR$(27)CHR$(18); 
/369 LPRINT CHR$(27)CHR$(53); 
365 LPRINT CHR$(27)CHRS$(87)CHRS(9); 
379 LPRINT CHR$(27)CHRS(79); 
/375 LPRINT CUR$(27)CHR$(72); 
389 LPRINT CHRS(27)CHR$(84); 
385 LPRINT CHR$(27)CHR$(59): 
399 LPRINT CHR$(27)CHR$(890); 
395 LPRINT CHR$(27)CHR$(12Ø) CHRS (Ø) ; : RETURN 
4g '=======e====m===== ——— MOVE "*" TO SHOW CURRENT STATUS 
495 AS(1)-"*":A$(2)2" ":AS(3)9" ":AS(4)m" ":A$(5)e" ":AS(6)m" ":AS(7)9" ":AS(8)- 
mim: AS(9)=" ":AS(g)e" ":S1go" OFF":S2$=" OFF":RETURN 
419 AS(1)e"*":AS(5)e" ":RETURN 
415 AS(2)e"X*":AS(9)-" ":AS(Q)-" ":RETURN 
429 A$(3)9'*":AS$(2)-" ":AS(4)e" ":AS(G)-" ":AS(9)—" ":AS(B)-" ":RETURN 
425 AS(4)9'"*":AS(2)e" ":AS(3)e" ":A$(6)2" ":A8(9)5" ":ASCØ)=" RETURN 
439 AS(5)-"*":AS(1)9" ":RETURN 
435 AS(6)="*":AS(2)=" MAS (IJEM MAS (AJEN ":AS(9)e" ":AS(Q)m" ":RETURN 
449 AS(7)-"*" :AS(2)-"*":AS(3)-" ":AS(4)e" ":AS(6)e" ":S18-" ON" : RETURN 
445 AS(8)e"*":S28-" |  ON":RETURN 
459 AS$(9)-9"*":A$(2)2" ":A$(3)-" ":AS(4)2" ":AS(6)2" ":AS(Ø)=" ":S1S-" OFF": 
S292" ON RETURN | 
455 A$(Ø)="*":AS(2)="" ":AS(3)=" ":AS(A)e" ":AS(6)e" ":AS(9)e" ":S1g=" OFF": 
$2$=" OFF": RETURN | 
469 'END OF LISTING 
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15.DIM A$(255),B$(255) ,PX(255) ,PY(255),SF(255),S$(25) ,T(255),F$(255) ,L(255) 

2Ø DIM UC(255),SN$(255) ,RN$(255) ,RD$(2,255),SL(255),ST$(255) ,RE(255),QN(255) 

22 DIM 0D$(255),RX(255),RY(255),YR(255) ,XR(255) ,RT(255) ,RF(255) ,RS$(25),N$(255), 
FS$(1),TP$(8),FT$(1),J(4),F2$(255),7T2(2555,L2(255) , PN$ (50) ,NC(5Ø) ,PC(5Ø,2Ø) ,RIS( 
2) 

25 RESTORE 5Ø:FOR X=1 TO 192:READ A: BIOSS$S=BIOS$+CHRS$ (A) :NEXT:X!=FRE(BIOSS) 

35 BU=Ø:BI=7:BD=Ø:BE=7 ;FI=9;FD=7:FH=1Ø:FU=9 : FE=9 

40 NLS=CHRS$ (9): ZFS="G999":SPS=SPACES (255): FS$(G)="Reset": FS$(1)="Set" 

45 FTS(Ø)="0ff£":FT$(L1)="On" :RESTORE 99: FOR X=1 TO 8:READ TP$(X) :NEXT 

59 ' Program: BIOS Length: 192 bytes 

51 DATA 85,3Ø,7,139,236,139,94,6,255,55,157,139,94,8,139,63,139,94,1Ø,139,55,139 
,94,14,139,23,139,94,16,139,15,139,94,20,139,7,139,94,18,139,31,139,110,12,139,1 
19,Ø,2Ø5,33,85,83,139,236,139,94,1Ø,156,143,7,139,94,12,137,63,139,94,14 

52 DATA 137,55,139,94,18,137,23,139,94,2Ø,137,15,139,94,24,137,7,91,139,11Ø,22,1 
37,94,Ø,139,11Ø,16,91,137,94,Ø,93,2Ø2,16,Ø 

99 DATA Alpha/Num.,Alpha only, Time stamp,Date stamp, Integer,Single Prec.,Double 
Prec.,Date entry 

95 ON ERROR GOTO: 49999 

l9g ' yx. Key database information retrieval 

195 OPEN"I",l,"CDBASE.PTR":INPUT #1,CD$; INPUT *1,SN:INPUT +1,CR: INPUT #1,0D:CLOS 

E 

119 SNS-RIGHTS(ZFS$4HEX$(SN),2):CR$-RIGHT$ (ZF$4HEX$ (CR) , 2) : OD$=RIGHT$(ZF$+HEXS (OD 
) , 2) ND=CD$="ØØ":NS=SNS="ØØ"  NP=CR$="ØØ" : NO=OD$="99" 

112 OPEN"I",4,'" PRINTER. PTR": MD=9 

113 WHILE-NOT EOF(4):MD=MD+L:INPUT %4,0D$(MD):WEND:CLOSE 4 

115 IF ND THEN RUN"DBFORM'" 

116 IF NO THEN 129 ELSE OPEN"I" 4, "DRIVER.D"+0D$: INPUT €4,CP,PM,DN$ 

117 FOR X=1 TO PM: INPUT %4,PN$(X),NC(X) 

118 FOR XC-1 TO NC(X):INPUT #4,PC(X,XC):NEXT: NEXT: CLOSE 4 

129 OPEN"R",1,CD$4".MSC",2:FIELD 1,2 AS MX$ 

125 GET 1,1:RL-CVI(MX$):GET L:MF=CVI(MX$):GET 1:MS-CVI(MX$):GET 1;MR=CVI(MXS) 
139 GET 1:LD-ASC(LEFTS$(MX$,1)):LR-ASC(RIGHTS (MX$,1)) 

149 OPEN'"R",4,CD$+".FLD",2Ø:FIELD 4,1 AS FL$,16 AS F$,1 AS T$,1 AS L$,1 AS UC$ 
145 FOR XF=1 TO MF:GET 4,XF 

15g F$(XF)=LEFTS(F$,ASC(FL$)) : TCXF)-ASC(T$) : L(XF) -ASC(L$) : UC(XF)=(ASC(UC$)>Ø) 
155 NEXT:CLOSE 4:F=2;GOSUB 59999 

156 RESTORE 157:FOR XF=MF+1 TO MF+9:READ FS$(XE),T(XF),L(XE):NEXT 

157 DATA *Page Number,5,4,*Record Number,5,5,*Line Number,5,5,*Delete Level,5,2, 

*Tag Status,l,l,*Edit Status,1,1,*New Record Status,1,1,*Report Time,3,8,*Report 
Date,1,19 

160 IF LD>Ø THEN OPEN"I",4,CD$+".SUB": FOR X=1 TO LD:LINE INPUT #4,SN$(X):NEXT:CL 
OSE 4 

165 IF LR>Ø THEN OPEN"I",4,CDS$4".RPT":FOR X=1 TO LR:LINE INPUT £4,RN$(X):NEXT:CL 
OSE 4 

29g ' xxw Sub database information retrieval 

295 IF NS THEN IF LD>Ø THEN 499 ELSE RUN"DBFORM" 

219 OPEN"R",4,CDS$+".F"+SN$,4:FIELD 4,2 AS SF$,1 AS PX$,1 AS PY$ 

215 GET 4,1:SM=CVI(SF$) 

229 FOR X=1 TO SM:GET 4:SF(X)-CVI(SF$) : PX(X) -ASC(PX$) : PY(X)=ASC(PYS) 

225 NEXT:CLOSE 4 

239 OPEN"R",4,CD$4".S"4SN$,8g:FIELD 4,89 AS S$ 

235 FOR X=1 TO 24:GET 4,X:S$(X)=S$;NEXT: CLOSE 4 

259 ' srk Report information retrieval 

255 IF NP THEN 40g 

269 OPEN"R",4,CD$4*".R"*CR$,4:FIELD 4,2 AS RF$,1 AS RX$,1 AS RY$ 

265 GET 4,1:RM-CVI(RF$):RW-ASC(RX$) : PL=ASC(RYS) 

279 GET 4:TM-ASC(LEFTS (RE$,1)) :BM-ASC(RIGHTS (RF$,1)) :LM=ASC(RX$) : LL=ASC(RYS) 

275 GET 4:BS-ASC(RX$) : BB-ASC(RY$) 

289 FOR X=1 TO RM:GET 4:RF(X)=CVI(RF$) :RX(X)=ASC(RX$) :RY(X)=ASC(RYS) 
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285 NEXT:CLOSE 4 

299 OPEN"R",4,CD$+".P"+CR$,RW: FIELD 4,RW AS S$ 

295 FOR X=1 TO LL:GET 4,X:RS$(X)=S$:NEXT: CLOSE 4 

39g sæ Update disk files 

395 IF ND THEN GOTO 499 

319 LSET MX$-MKIS(MR):PUT 1,4:CLOSE 

315 OPEN"R",1,CD$4".MSC",2:FIELD 1,2 AS MX$:F=2:GOSUB 59000 

49999 ' vek Error recovery logic 

49995 COLOR FD,BD:GOSUB 54599:GOSUB 52899 

49919 ERR=71 THEN E$="Disk insertion":GOTO 49999 

49929 ERR=72 THEN E$="Disk media":GOTO 4Ø9ØØ 

49939 ERR=79 THEN E$="Write protect":GOTO 49999 

49049 ERR=61 THEN E$-"Disk full":GOTO 49899 

40959 ERR=57 THEN E$="Device I/O":GOTO 49999 

40069 ERR=68 THEN E$="Device unavailable":GOTO 49999 | 

49979 ERR=64 THEN E$="Bad file/database name":GOTO 49899 

49989 ERR=27 THEN E$-'"Out of paper":GOTO 49990 

49999 ERR=25 THEN E$-"Device fault":GOTO 49999 

49199 ERR=6 THEN E$="Data input/overflow":GOTO 49999 

49119 ERR=7 OR ERR=14 THEN E$-"Out of memory": GOTO 49899 

49129 ERR=5 THEN E$-"Illegal function call":GOTO 49899 

49139 ERR-11 THEN E$="Division by zero error":GOTO 498909 

49135 ERR=53 AND ERL=59919 THEN HE--1:RESUME NEXT 

49149 ERR=53 THEN E$-"File not found" :GOTO 49999 

49159 ERR=52 THEN E$="Improper startup error":GOTO 49899 

49169 ES="#"4MID$(STRS(ERR),2):GOTO 49990 

49899 SL$=E$:GOSUB 547ØØ:GOSUB 53199:RESUME 399 

49999 LOCATE 25,1:PRINT E$;" error - A)bort, I)gnore, or R)etry";:SOUND 4999,1:G 
OSUB 52199 

49919 IF A$="A" THEN RESUME 399 

49929 IF AS="I" THEN RESUME NEXT 

49939 IF A$="R" THEN RESUME ELSE GOSUB 552ØØ:GOSUB 53199:GOTO 49999 
5ØØØØ "xxx Open DBLL datapool file (.DAT) and record information file (.INF) 
59995 XE=F/2:OPEN"R",F,CD$+". DAT", RL:X2=L:FOR X=1 TO 4:J(X)=Ø:NEXT 
59919 FOR X=1 TO MF:ON T(X) GOTO 59915, 59915 ,59915 ,59932,59920,59925,59030,59932 
59915 L-L(X):GOTO 59935 

59020 L=2:GOTO 59935 

59925 L—4:GOTO 59935 

59939 L=8:GOTO 59935 

59932 L=4 

59935 IF J(X2)+L>255 THEN X2=X2+1 

59940 FIELD F,J(1) AS X1$,J(2) AS X2$,J(3) AS X3$9,J(4) AS X4$,L AS RDS(XE,X) 
59945 J(X2)-J(X2) YL: NEXT 

59950 OPEN"R" , F+1,CD$+".INF",1: FIELD F+1,1 AS RI$(XE):RETURN 
59199" *** Save database record at end of file 

59105 MR=MR+1:RN=MR 

50299 ' *** Save database in record RN 

59219 FOR XF-1 TO MF:B$(XF)=A$(XF) 

59215 ON T(XF) GOTO 590220,50229,59225,592390,50235,592490,59245,59247 
59220 LSET RD$(1,XF)=A$(XF):GOTO 59259 

59225 LSET RD$(1,XF)=TIMES:GOTO 59259 

59230 AS(XF)=DATE$:GOTO 59247 

59235 LSET RD$(1,XF)-MKIS(VAL(AS(XF))):GOTO 59259 

59240 LSET RD$(1,XF)=MKS$ (VAL(AS (XF))) : GOTO 59259 

59245 LSET RD$(1,XF)-MKDS(VAL(AS(XF))):GOTO 59259 

59247 LSET RD$(1,XF)=MKIS (VAL(RIGHTS (A$ (XF) , 4)) ) €CHR$ (VAL(LEFTS (A$ (XF) , 2) ))+CHRS 
(VAL(MIDS (A$ (XF) ,4,2))) 

59259 NEXT: PUT 2,RN:GOSUB 5Ø5ØØ:RETURN 

59390 ' *** Get database record RN 
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59395 GET 2,RN 

59397 FOR XF=1 TO MF:B$(XF)=A$(XF) :T=T(XF) 

59319 IF T«4 THEN AS$(XF)-RD$(l1,XF):GOTO 59349 

59312 IF T=4 OR T-8 THEN XY-CVI(LEFTS$(RD$(1,XF),2)):XM-ASC(MIDS(RD$(1,XF),3,1)): 
XD-ASC(RIGHT$(RD$(1,XF),1)):A$ (XF) -RIGHTS (ZFS+MID$ (STRS$ (XM) ,2) ,2) &" - "RIGHTS (ZFS 
+MIDS(STRS$(XD) ,2) ,2)+!"-"+RIGHTS$(ZF$+MIDS(STRS(XY) , 2) ,4) :GOTO 59349 

5Ø315 IF T=5 THEN AS-RIGHTS(STRS(CVI(RDS(l,XF))),L(XF)):GOTO. 59339 

59329 IF T=6 THEN AS-RIGHTS(STRS$(CVS(RDS(l,XF))),L(XE)):GOTO 59339 

59325 IF T=7 THEN AS$-RIGHTS$(STRS$(CVD(RDS$(l,XF))),L(XE)) 

593390 IF LEFTS$(A$,1)-" " THEN A$-MIDS$(AS$,2) 

59335 AS(XF)=A$ 

59349 NEXT: RETURN 

59400 ' %%** Get information on DB record 

59405 GET 3,RN:X-ASC(RIS(1)):DR-31 AND X:NR=32 AND X:TG=64 AND X:ED=128 AND X:RE 
TURN 

50599 ' *** Update record RN of .INF file 

59595 LSET RI$(1)=CHR$(DR OR NR OR TG OR ED):PUT 3,RN:RETURN 

50600 ' wee Check if current record matches find data 

59695 GET 2,RN:FOR XC=1 TO QS:ON T(QN(XC)) GOTO 59698,59698,59608,59700,59635,59 
655,59675,59799 

59698 ON RE(XC) GOTO 596198,59615,59620,59625,50630 

59619 DF-(STS$(XC)-RD$(l,QN(XC))):GOTO. 59799 

59615 DF-(ST$(XOC)-LEFTS(RD$(l,;QN(XC)),LEN(ST$(XC)))):GOTO 59799 

59629 DF-(INSTR(RD$(1,QN(XC)),ST$(XC))»9):GOTO 59799 

59625. DF=(ST$.(XC)>LEFT$ (RDS (1, QNCXC)) , LEN(ST$ (X0) ))) :GOTO. 59799 

59639 DF=(ST$(XC)<LEFT$ (RD$ (1, QN(XC) ) , LEN(ST$ (XC). )):: GOTO 59799 

59635 ON RE(XC) GOTO 59619 ,59619,59619,59645,5965¢ 

59645 DF=(CVI(STS(XC))>CGVI(RDS(1,QN(XC)))) :GOTO 59799 

59659 DF-(CVI(ST$(XC))«CVI(RDS(l,QN(XC)))):GOTO. 59799 

5Ø655 ON RE(XC) GOTO 590619,50619,59619,50665,590679 

59665 DF-(CVS(ST$(XC))»CVS(RD$ (L, QN(XC) ))) : GOTO: 59799 

59670 DF-(CVS(STS$(XC))«CVS(RDS$(1,QN(XO)))) :GOTO. 59799 

59675 ON RE(XC) GOTO 596192,59610,59610,50685,59699 

59685 DF=(CVD(ST$(XC) )>CVD(RDS(1,QN(XC)))) :GOTO. 5979.9 

59699 DF=(CVD(STS$(XC) )<CVD(RDS(L,QN(XC)))) :GOTO 5Ø79Ø 

59709 ON RE(XC) GOTO: 592619,59619,50619,59719,50729 

59719 AS-RD$(I,QN(XC)):DF-(STS(XC)»MID$(A$,2,1)*LEFT$ (AS, 1) -FRIGHT$ (A$,2)) : GOTO. 5 
9799 

59729 AS=RD$(1,QN(XC)) : DF=(ST$ (XC) <MIDS (A$,2, ID) TLEFT$ (A$, D) RIGHTS (A$,2)) 

59799 IF NOT DF THEN RETURN 

59795 NEXT:GOTO 59397 

5Ø8Øg ' se Read directory 

59895 1-33:AS-LEFTS(SP$,43):GOSUB 537ØØ:AX%=6656:GOSUB 53209 

590819 AX$-19968:CX*-0:PN$-DS4":*.FLD'4NL$:SWAP PN$,A$:GOSUB 537ØØ:SWAP PN$,A$:GO 
SUB 532ØØ:N=Ø:E=AX%:IF E>Ø THEN RETURN 
5Ø815 N=N+L:X$=MIDS$(A$,31) :NS (N) -LEFTS (X$, INSTR(X$,".")-1) 

50820 AX$-20224:GOSUB 53299:E-AX$:IF E-18 THEN E=Ø:RETURN ELSE 59815 

59909 ' vekte Print help file on screen 

59919 HE=Ø:OPEN"I",4,F$:IF HE THEN GOSUB 55999 :GOSUB 531ØØ:RETURN 

59920 IF EOF(4) THEN 59959 | 

59930 LINE INPUT £$4,A$:IF LEFT$(A$,1)="V" THEN 59959 

59949 PRINT AS:XL-XL41:IF XL<22 THEN 59929 | 

59959 LOCATE 25,13:PRINT"Hít Q or control Q to quit, any other key to continue" 
50969 UC--1:GOSUB.52900:IF A=81 OR A-17 OR EOF(4) THEN 59980 

59979 CLS :XL=@: GOTO: 59929 

59989 CLOSE 4; CLS: RETURN 

51900 ' wee Trim trailing spaces off A$ 

51095 L=LEN(AS): IF L=Ø THEN RETURN 

51919 IF MID$(AS$,L,1)-" " THEN L=L-1:IF L>Ø THEN GOTO 5190190 
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51915 A$=LEFT$(A$,L):RETURN 

5lløg ' *** Trim trailing spaces off A$() for subdatabase 

51195 FOR XS-1 TO SM:XF-SF(XS):A$-AS(XF):GOSUB 51999: AS (XF) -AS: NEXT: RETURN 

52009 ' *** Input character from keyboard with UC conversion 

52995 LOCATE ,,1,Ø:GOSUB 527ØØ:IF UC AND (A>96 AND A<123) THEN A=A AND 223:A$=CH 
R$ (A) 

52919 RETURN 

52199 ' *** Input character from keyboard in UC w/printing on screen 

52195 UC--1:GOSUB 52090:IF A<32 OR A>126 THEN SOUND 4999,1:GOTO 52195 

52119 PRINT A$;:RETURN 

52299 ' *** Full screen advanced input routine 

52205 COLOR FU,BU:IF E THEN GOSUB 51199 

52297 FOR XS=1 TO SM:XF-SF(XS):IF NOT E THEN AS$(XF)="" 

52219 LOCATE PX(XS),PY(XS),9:PRINT A$(XF);LEFTS$(SP$,L(XE)-LEN(AS (XF) )) : NEXT : GOSU 
B 52899 

52215 XS=Ø:IF E THEN COLOR FI,BI 

52229 XS-XS41:IF XS>SM THEN Q=Ø:RETURN ELSE XF=SF(XS) :XP=PX(XS) : YP=PY(XS) : LS=LEN 
(AS(XF)) : XX=YP+LS: LOCATE PX(XS) ,XX+(LS=1 OR XX>89) , 9: UC=UC(XF) : T=T(XF) : L=L(XF) 
52225 GOSUB 52ØØØ:IF A>31 AND A<127 THEN 52289 

52239 IF A=4 AND (L>LS) THEN A$(XF)=A$(XF)+LEFT$(B$(XF),L-LS):LOCATE XP,YP,@: PRI 
NT A$(XF);:LS=LEN(A$ (XF)) :XX=YP+LS: LOCATE XP,XX+(XX>8Ø) :GOTO 52225 


52235 IF (A=8 OR A=29 OR A=127) AND LS>Ø THEN LS=LS-1:A$(XF)=LEFTS (A$ (XF) LS): LO: 


CATE XP,YP,Ø:PRINT A$ (XF);LEFT$(SP$,L-LS); : LOCATE XP,LS4YP:GOTO 52225 

52249 IF A=5 THEN Q=Ø:RETURN 

52245 IF SC=71 THEN XS=Ø:GOTO 52229 

52259 IF A=13 OR SC=8Ø THEN 52229 

52255 IF A=17 THEN Q=-1:RETURN 

52269 IF A=18 AND XS>1 AND (T-T(XS-1) OR T=1) AND L>LS THEN A$(XF)=A$(XF)+LEFTS( 

AS(SE(XS-1)),L-LS):LOCATE XP, YP, ø: PRINT A$(XF);:LS=LEN(AS (XF)) : XX=YP+LS:LOCATE X 
P,XX+(XX>8Ø) :GOTO 52225 

52265 IF A=27 OR SC=135 THEN A$(XF)="":LS=Ø:LOCATE XP,YP,Ø:PRINT LEFTS(SPS,L);:L 

OGATE XP,YP:GOTO 52225 

52279 IF SC=72 THEN IF XS»1 THEN XS=XS-2:GOTO 52229 ELSE 52225 

52275 GOTO 52225 

52289 IF LS+1>L THEN SOUND 4ØØØ,1:GOTO 52225 

52285 IF T-1 THEN 52395 

52299 IF T>4 THEN IF A=45 OR A=46 OR (A>47 AND A<58) THEN 52395 

52295 IF T=2 THEN IF A=32 OR (A>64 AND A<91) OR (A>96 AND A<123) OR A=46 THEN 52 
395 

52309 SOUND 4999,1:GOTO 52225 

52395 AS(XF)-AS(XF)*AS:LS-LEN(AS(XE)):LOCATE XP,LS+YP-L1,Ø:PRINT A$;:GOTO 52225 
52499 ' ** Full screen editor 

52495 CLS:COLOR FD,BD:FOR XR=1 TO 24:IF E=Ø THEN S$(XR)=LEFTS(SP$,8Ø) ELSE PRINT 
S$(XR); 

5241Ø NEXT:S$(25)=LEFTS(SP$,8Ø) : XR=1:XC=1:UC=Ø:HF=Ø:GOSUB 52899 

52415 LOCATE XR,XC:GOSUB 52999 

52429 IF A>31 AND A<127 THEN MIDS$(S$(XR),XC)=A$:PRINT A$; :XR=CSRLIN:XC=P0S(Ø) : GO 
TO 52415 

52425 IF A=4 THEN AS$=MID$(S$(XR) ,XC+(XC>1) ,1):S$(XR)=LEFT$ (S$ (XR) , XC- 1) «STRINGS ( 
81-XC,ASC(AS)):LOCATE XR,1,Ø:PRINT S$(XR);:GOTO 52415 

52439 IF A=5 THEN FOR X-XR TO 24:S$(X)=S$(X+1):LOCATE X,1,Ø:PRINT S$(X);:NEXT:XR 
=24;A=27 

52435 IF A=8 THEN X2=(XC-2)>-1:X2=2*X2+XC:S$ (XR) -LEFT$(S$ (XR) , X2) cRIGHT$ (SS (XR) , 
81-XC)4" ":LOCATE XR,1,Ø:PRINT S$(XR) ; :XC=XC+(XC>1);:GOTO 52415 

52449 IF SC=71 THEN XR-1:XC-1:GOTO 52415 

52442 IF SC=79 THEN XR=24:XC=89:GOTO 52465 

52445 IF A=12 THEN FOR X=23 TO XR STEP -1:S$(X+1)=S$(X):LOCATE X*1,1,9: PRINT S$( 

X+1); :NEXT:LOGATE X+1,1:A=27:GOTO 52465 

5245Ø IF A=13 THEN XC-1:IF XR>23 THEN XR-1:GOTO 52415 ELSE XR=XR+1:GOTO 52415 
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52455 IF A=17 THEN RETURN 

52469 IF SC-82 THEN S$(XR)=LEFTS$(S$(XR),XC-1)+" "+MIDS(S$ (XR) ,XC,89-XC) : LOCATE X 
R,1,Ø:PRINT S$(XR);:GOTO 52415 

52465 IF A=27 THEN S$(XR)=SPACE$(8%):LOCATE XR,1,Ø:PRINT S$(XR);:XC=1;GOTO 52415 
52479 IF SC=77 THEN XC=XC-(XC<8Ø) :GOTO 52415 

52475 IF SC=75 THEN XC=XC+(XC>1) :GOTO 52415 

52489 IF SC=72 THEN XR=XR+(XR>1):GOTO 52415 

52485 IF SC=8Ø THEN XR-XR-(XR«24):GOTO 52415 

52499 IF SC=83 THEN S$(XR)=LEFT$(S$(XR) ,XC-1)+RIGHTS (S$ (XR); 89-XC) +". ":LOCATE XR 
,1,8:PRINT S$(XR);:GOTO 52415 

52495 IF SC=133 THEN XR-1:GOTO 52415 

52599 IF SC=134 THEN XR=24:GOTO 52415 

52595 IF SC-135 THEN XC-1:GOTO 52415 

52519 IF SC=136 THEN XC=8Ø:GOTO 52415 

52515 IF SC=73 THEN HF-HF-1:IF HF<1 THEN HF=MF:GOTO 52595 ELSE 52595 

52529 IF SC-81 THEN HF=HF+1: IF HF>MF THEN HF-1:GOTO 52595 ELSE 52595 

52539 IF A=9 THEN IF L(HF)>8Ø-XC THEN SOUND 4ØØØ,1:GOTO 52415 ELSE A$=":"4+STRING 
$(L(HE),46):A—46:GOTO 52429 

52599 GOTO 52415 

52595 GOSUB 545ØØ:LOCATE 25,1,0:PRINT"Field name:";F$(HF),"Length:";L(HF),"Type: 
"STPSCT(HE));:GOTO 52415 

52600 ' *** Input line from keyboard at current cursor position 

52692 GOSUB 52899 

52695 XX=CSRLIN:XY=POS(Ø) : COLOR FU,BU:LS=LEN(I$): PRINT I$;LEFTS(SPS,L-LS); 

5261Ø LOCATE XX,XY+LS:GOSUB 52ØØØ:IF A<32 OR A>126 THEN 52645 

52615 IF LS=L THEN SOUND 4ØØØ,1:GOTO 52619 

52629 IF T=1 THEN 52649 

52625 IF T=2 THEN IF A=32 OR (A>64 AND A<91) OR (A>96 AND A<123) OR A=46 THEN 52 
649 

52639 IF T=3 THEN IF A=45 OR A=46 OR (A>47 AND A<58) THEN 52649 

52635 SOUND 4999,1: GOTO 52619 

52649 I$=I$+A$:LS=LS+1:PRINT A$; :GOTO 52619 

52645 IF A=8 OR SC=75 OR SC=83 THEN IF LS=Ø THEN SOUND 4ØØØ,1:GOTO 52619 ELSE LS 
zLS-1:1$-LEFT$(I$,LS):GOTO 52669 

52659 IF A=27 OR SC=135 THEN I$="";LS=Ø:GOTO 52669 

52655 IF A=17 OR A=13 OR A-39 OR A=31 THEN COLOR FD,BD:A$=I$:GOSUB 519909:I$-AS:R 
ETURN 

52669 LOCATE XX,XY,@; PRINT I$;LEFT$(SP$,L-LS);:GOTO 52619 

52709 ' ve Get key from keyboard queue (wait if nescessary) 

52705 1=22:AX%=Ø:GOSUB 53299:A-PEEK(VARPTR(AX$)) : AS=CHRS (A) : SC-PEEK(VARPTR (AX$) + 
1):RETURN 

52899 ' xwx Flush keyboard queue 

52895 1-22:AX$-768:GOTO 53299 

53999 ' ser Compile formated input screen from data in S$() 

53995 SM=Ø:FOR XR=1 TO 24:XC-1 

53919 XC-INSTR(XC,S$(XR),":"):IF XC=Ø THEN 53925 

53915 A=INSTR(XC,S$(XR) ," "):IF A=Ø THEN A=81 ELSE IF A=XC+1 THEN 53925 

53029 SM=SM+1: PY(SM)=XC+1: PX(SM)=XR:SL(SM)=A-XC-1:XC=A:GOTO 53919 

53925 NEXT: RETURN 

53190 ' *** Pause for 2 seconds 

53195 FOR P=1 TO 25ØØ:NEXT;RETURN 

53299 "' xxx Gall DOS function 

53295 MIDS(BIOS$,49,1)=CHR$(I):XV=VARPTR(BIOS$):BIOS!=PEEK(XV+1)+PEEK(XV+2)*256: 
CALL BIOS!(AX%,BX%,CX%,DX%, BP%,SI%,DI%,SW%) : RETURN 

53399 ' *** Full screen editor 

533905 CLS:COLOR FD,BD:FOR XR-1 TO 24:IF E=Ø THEN RS$(XR)=LEFTS(SP$,RW) ELSE PRIN 
T LEFTS(RS$(XR) ,8Ø); 

5331Ø NEXT: RS$(25)=LEFTS$(SP$ RW) : SP=1:XR=1 :XC=1:UC=Ø:HF=Ø:GOSUB 52899 

53315 LOCATE XR,XC:GOSUB 52999 
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53320 IF A>31 AND A«127 THEN 53459 

53325 IF A=4 THEN AS=MIDS(RS$ (XR) ,SP+(SP>1L),1):RS$(XR)=LEFTS$ (RSS (XR) , SP- 1) xSTRIN 

GS(RW41-SP,ASC(AS)):LOCATE XR,1,0:PRINT MIDS$S(RS$(XR),SP-XC+1,8Ø);:GOTO 53315 
53339 IF A=5 THEN FOR X=XR TO 24:RS$(X)-RS$(X41):LOCATE X,1,9:PRINT MIDS$(RSS(X), 
SP-XC+1.,8Ø) ; :NEXT:XR-24:A-27 

53335 IF A=8 AND SP>1 THEN SP=SP-1:XC=XC-1:RS$(XR)=LEFTS$(RS$(XR) ,SP-1)+RIGHTS (RS 
$(XR),RW-SP-(SP«1))4" ":IF XG<1 THEN 53475 ELSE LOCATE XR,1,Ø:PRINT MIDS(RS$(XR) 
,SP-XC+1,8Ø); :GOTO 53315 

53349 IF SC=71 THEN XR-1:GOTO 53489 

53345 IF SC=79 THEN XR=24:SP=RW:GOTO 53475 

53359 IF A=12 THEN FOR X=23 TO XR STEP -l:RS$(X41)-RS$(X):LOCATE X+1,1,Ø:PRINT M 
IDS(RSS$(X41),SP-XC41,89);:NEXT:LOCATE X+1,1:A=27 

53355 IF A=13 THEN XR-XR-(XR«24):GOTO 53489 

53369 IF A-17 THEN RETURN 

53365 IF SC=82 THEN RS$(XR)=LEFTS(RS$(XR),SP-1)+" "+MIDS$S(RS$S(XR),XC,RW-SP) : LOCAT 
E XR,1,Ø:PRINT MIDS(RS$(XR),SP-XC+1,8Ø);:GOTO 53315 

53379 IF A=27 THEN RS$(XR)=LEFTS$(SP$,RW):LOCATE XR,1,0:PRINT LEFTS$(SP$,89);:GOTO 
53480 

53375 IF SC=77 THEN X=- (SP<RW) :XC=XC+X:SP=SP+X: GOTO 53479 

53389 IF SC=75 THEN X=SP>1:XC=XC+X:SP=SP+X:GOTO 53479 

53385 IF SC=72 THEN XR=XR+(XR>1):GOTO 53315 

53399 IF SC=8Ø THEN XR-XR-(XR«24):GOTO 53315 

53395 IF SC=83 THEN RS$(XR)=LEFT$(RS$ (XR) ,SP-1)+RIGHTS (RSS (XR). , RW-SP)+" ":LOCATE 
XR,1,0:PRINT MID$(RS$ (XR) ,SP-XC+1,89);:GOTO 53315 

53499 IF SC=133 THEN XR=1:GOTO 53315 

53495 IF SC=134 THEN XR=24:GOTO 53315 

53419 IF SC=135 THEN 53489 

53415 IF SC=136 THEN SP=RW:GOTO 53475 

53429 IF SC=73 THEN HF-HF-1:IF HF<l THEN HF=MF+9:GOTO 53499 ELSE 53499 

53425 IF SC=81 THEN HF=HF+L:IF HF>MF+9 THEN HF=1:GOTO 53499 ELSE 53499 

53430 IF A=9 THEN IF L(HF)>RW-SP OR (T(HF)>4 AND T(HF)<8) THEN SOUND 4999 ,1:GOTO 
53315 ELSE IF L(HF)=1 THEN A$="!":GOTO 53459 ELSE A$="N"+4STRINGS(L(HF)-2,45)+"N 
":GOTO 53459 

53435 GOTO 53315 

53459 MIDS(RS$(XR),SP)=A$: PRINT A$;:IF SP>RW-1 THEN 53315 ELSE SP=SP+1;XC=XC+1 
53455 IF SP/4Ø>INT(SP/4Ø) THEN 53315 

53469 XA-INT(SP/A9)*49-39:X0—49:IF X4<1Ø THEN 53315 

53465 CLS:FOR X2-1 TO 24:LOCATE X2,1:PRINT MID$(RS$(X2),X4,80); :NEXT:GOTO 53315 
53479 IF SP/4Ø>INT(SP/4Ø) OR XC=4Ø THEN 53315 

53475 X4=INT(SP/49)*49-39:XC=RW-X4:IF XC>4Ø THEN XC=4Ø 

53477 GOTO 53465 

53480 IF SP=XC THEN XO-1:SP-1:GOTO 53315 ELSE XC=1:SP=1:X4=1:GOTO 53465 

53499 GOSUB 545ØØ:LOCATE 25,1,0:PRINT"Field name:";FS$(HF),"Length:";L(HPF),"Type: 
"UTPSCT(HE));:GOTO. 53315 

53599 ' *** Compile report 

53592 RT=0: FOR LL=24 TO 1 STEP -1:IF RS$(LL)=LEFT$(SP$,RW) THEN NEXT:RETURN 
53595 XS="\#+-$%.1":FOR XR-1 TO LL:A=1 

53519 IF A-RW THEN 53549 ELSE XC-A:FOR XC=XC TO RW:XT=INSTR(X$,MIDS(RS$(XR),XC, 1 
)):IF XT=Ø THEN NEXT XC: GOTO 53549 

53515 IF XT=1 THEN A=INSTR(XC+1L,RS$(XR),"\")+1 ELSE A-INSTR(XC,RSS(XR)," "):IF A 

=Ø THEN A-RW 

53529 RT=RT+1:YRC(RT)=XC:XR(RT)=KR 

53525 IF XT=1 THEN MID$(RS$(XR) ,XC,A-XC)="\"+LEFT$(SP$,A-XC-2)+"\": RT(RT) -1:GOTO 
53519 

53539 IF XT=8 THEN RT(RT)=1 ELSE RT(RT)=2 

53535 GOTO 53519 

53549 NEXT XR: RETURN 

53699 ' *** Convert Integer to signed integer 

53605 IF A!>32767 THEN AS=A!-65536! ELSE A$-A! 
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53619 


RETURN 


53799 ' *** Find address for string 

53795 V!-VARPTR(A$) :A!=PEEK(V!+1)+PEEK(V!+2)*256:GOSUB 53699: DXt=A%: RETURN 

54999 ' xxx Print data in A$() on formatted screen (inverse video) 

54995 COLOR FI,BI:GOTO 54119 

54199 ' *** Print data in A$() on formated screen record (normal video) 

54195 COLOR FU,BU 

54119 FOR XS=1 TO SM:XF-SF(XS):LOCATE PX(XS),PY(XS),9:PRINT AS(XF) ;LEFTS(SPS$,L(X 
F)-LEN(A$(XF))) ; :NEXT:COLOR FD,BD:RETURN 

54209 ' sek Print database screen 

COLOR FD,BD:CLS:GOSUB 54599:FOR X=1 TO 24:LOCATE X,1,9:PRINT S$(X);:NEXT:R 


54295 
ETURN 


54399 ' sex Print border line on current row of screen 

PRINT STRINGS$ (89,295) :RETURN 

iver Clear text on rows TW to BW 

AT=7 : UR=TW: BR=BW: UC=1 : BR=89:SL=9:GOTO 54899 

"xxx Clear status line 

COLOR FD,BD 

54519 XX-CSRLIN:XY-POS(8):LOCATE 25,1,9:PRINT LEFT$(SP$,89);:LOCATE XX,XY:RETURN 
54699 ' vek Print SL$ on status line (Normal) 

COLOR FH,BD 

GOSUB 54519:LOCATE 25,1:PRINT TAB((8Ø-LEN(SL$))/2);SL$: 

LOCATE XX,XY:COLOR FD,BD:RETURN 

54799 ' xxx Print error/warning message in SL$ on status line (Inverse video) 
COLOR FE,BE:GOSUB 54619:SOUND 7ØØ,1:COLOR FD,BD:RETURN 

"veke Scroll window up 

AX%=1536+SL: BX%=AT*256 

54819 I=16:CX=(UR-1)*256+(UC-1) :DX%=(BR-1)*256+(BC-1) :GOTO 53299 


54395 
54499 
54495 
54599 
54595 


54695 
54619 
54615 


54795 


54899 
54895 


55999 
55199 
55299 
55399 
55699 
55799 


SLY" dm. 
SLS$="-=*=- 
SLS = Wars 
SL8=" -=w= 
SL$=" mW 
SLY=" c. 


TO 54799 


55890 
55999 
56999 
56199 
56290 
56399 


SLS" -=w= 
SL§="-=*=- 
SL$2z"-z*-- 
SL$2"--*-- 
SL$-"--k-- 


54790 


56499 
56590 
56699 
56799 
56899 
56999 
57999 
57199 


SL$=" mer 
SLS="-+=*=- 
SL$-".-*-. 
SLS="\-=*=- 
SLS=" Len 
SL$="-=*=- 
SL$9=" lI 
SL$-"-—ke- 


Field already exist -=*=-":GOTO 54799 

Illegal drive -=*=-":GOTO 54799 

Illegal Entry -=*=-":GOTO 54799 

Too many records -=*=-":GOTO 54799 

Entry too long -=*=-":GOTO 54799 

Database has not been initialized - Function aborted. -=*=-":G0 
Disk drive full -=*=-":GOTO 54799 

Help file not available -=*=-":GOTO 54799 

Please wait -=*=-":GOTO 54699 

Option has not been installed -=*=-":GOTO 54799 

Y or N only --*--":GOTO 54799 

No find parameters have been set - Function aborted -=*=-":GOTO 


No data in database - Function aborted -=*=-":GOTO 54799 

End of file has been reached -=*=-":GOTO 54799 

Begining of file has been reached -=*=-":GOTO 54799 

Function aborted -=*=-":GOTO 54790 

Margin exceeds printing area -=*=-":GOTO 54799 

No output driver has been defined or created -=*=-":GOTO 54799 
No report was created -=*=-":GOTO 54799 

Report will not fit on defined page -=*=-";:GOTO 54799 


64999 LPRINT TIMES, DATES: LLIST: STOP 
65999 SAVE"DB11. BAS" 


Listing 2: 


499 ' sere Main menu for overlay 
495. ' xwx Current overlay = MAIN.BAS 
499 ON ERROR GOTO 49999:KEY OFF:COLOR FD,BD:CLS:LOCATE 4,1,9 
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41Ø G 
429 P 


OSUB 54399:PRINT TAB(25)"-=*=- DB v1.19 Main Menu -=*=-":GOSUB 543ØØ:PRINT 


RINT TAB(29)"A)dd data to database" 


439 PRINT TAB(29)"C)hange current subdatabase" 


435.P 
44g P 


RINT TAB(29)"D)ata manipulation functions" 
RINT TAB(29)"E)dit/View database data" 


450 PRINT TAB(29)"F)ormat functions" 


469 P 


RINT TAB(29)"P)rint/Report functions" 


489 PRINT:PRINT TAB(29)"R)eturn to DOS" 
499 PRINT TAB(29)"H)elp" 
699 PRINT:LOCATE 18,1,Ø:GOSUB 543ØØ:PRINT TAB(34)"Enter Choice:";:GOSUB 52199:GO 


SUB 5 


4590 


619 ON INSTR("ACDEFPRH",A$) GOTO 1999,299g,3999,4992,8999,9999,999,899 


629 $ 


899 ' 
819 F 
999" 
919.5 
1999 
4991. 
1992 
1993 
1919 
1929 
1939 
1949 
1959. 
2999. 
2991 
2992 
2993 
2919 
2929 


293g 


"Uses." 


2949 
2059 
2069 
2199 
2119 
2129 
2139 
2149 
2159 
2169 
2179 
2189 
2199 


OUND 499%,1:GOTO 6ØØ 
ek Main Menu Help 


$="MAIN.HLP":GOSUB 59999:1F HE THEN 699 ELSE 499 

wk Exit to DOS 

YSTEM 
tyesesesedesedesesedeyeedeyedeyedesedekeyedfesedesesjedesedeseyedesjedesededeyededesesedeseyedesesedeyedeyesesetedesyedeJededededesedesesedesese 
We Add data to database * 
1 yvesesesedetesfetesesetesedevetefeseJesedjeteyedeyetededJedeyedeJededeyedesededeyedeyedeyedeVetedeyededededeyedesedeyesedesedededesedededeseseye 


IF NS OR ND THEN GOSUB 55799:GOTO 699 

CLS:GOSUB 542ØØ:DR=Ø:TG=Ø:ED=Ø:NR=32 

IF MR>MS THEN GOSUB 553ØØ:GOSUB 531ØØ:GOTO 399 

E=Ø:GOSUB 52299:1F Q THEN 399 

GOSUB 59199: GOTO 1939 

AS GIR IS CII IBY GI IS RIG I IAI RIMINI RCRA SEE I 
Mui Change current subdatabase * 


Nested verdes terete He IEIR vere TAKK STAINTON LIRIK IRR IOR II IRR IRIRI IIIR IR NIST SST LIVIA IS 
' 


IF LD=Ø OR ND THEN GOSUB 55799:GOTO 699 


CLS:GOSUB 54390:PRINT TAB(21)"-—*—- Change current subdatabase -=*=-":GOSUB 
54390 : PRINT 
PRINT" Use the up and down arrows to scan through the available subdataba 


PRINT"When the desired subdatabase is found, press the space bar." 
PRINT" To! abort this function, press Q or control Q." 

X=Ø: COLOR FH,BD: GOTO 2169 

GOSUB 52ØØØ:IF A$="Q" OR A=17 THEN GOSUB 56799:GOSUB 53199:GOTO 499 
IF A=32 THEN 2199 

IF SC=72 THEN 2149 

IF SC=8Ø THEN 2169 ELSE 2199 

X=X-1:IF X«l THEN X=LD 

GOTO 2179 

X-XXl:IF X>LD THEN X=1 

TW=+11:BW=11:GOSUB 54499 

LOCATE 11,(80-LEN(SN$(X)))/2,89: PRINT SN$(X);:GOTO 2199 

COLOR. FD, BD: SN=X: SN$=RIGHTS (ZFS+HEX$ (SN), 2); NS=9 


229g OPEN”0",4,"CDBASE. PTR": PRINT #4,CD$: PRINT #4,SN:PRINT #4,CR:PRINT #4,0D:CLO 


SE 4 
2219 
399g. 
3091 
3902 
3993 
3919 
4999 
4ØØ1 
4992 


GOTO 299 

VIRION IR ISN IIT ITIL IN IL IH SIA IH IAS SA IISA IAS ANSI AIAN SASS NS ASS SLAIN 
"ye Data manipulation functions * 
PIPETTE NINE TAIN NENT RAIN ITI IN SHIITES VN IVS ATR IRS SORIA INNS NSTI. 
i i 


GOSUB 56ØØØ:RUN"DATAMAN" 
* esesedeseteesedeyesedeseseyesesetekeyeseyewyetexeyeteyedesesekeyedede esee yeh ye de yededse TOKAI ASEAN SIAC 


te Edit/View database data * 
TISKI IAIN IIIR II IIIS AHI IKE IN IH III IIH IAN III NTA III NI IIIT III NIN 
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90 


4993." 

4919 IF NS OR ND THEN GOSUB 55799:GOTO 699 

4915 IF MR«1 THEN GOSUB 56499:GOTO 69g 

4929 AL=Ø:DL=16:TM=Ø:FM=Ø:JV=1Ø:QS=Ø:RN=Ø 

4939 CAS-"ACDEFGHJMQSTUVWXYZ "+CHR$(17) 

4935 CSC$=CHR$(71)+CHRS$(79)+CHRS(72)+CHR$ (89)+CHR$(75)+CHRS(77)+CHRS (133)+CHRS$ (1 
34)+CHRS$ (73) €CHR$(81) «CHR$ (82) +CHR$ (83) 

4940 CLS:GOSUB 54299:GOSUB 5199 

4199 COLOR FH,BD:LOCATE 25,1,9:PRINT"Record";RN;"of";MR;" Tag:";FS$(-(TG>@));" 
Edit:";FS$(-(ED>%));" New:";FS$(-(CNR>@));" Modes: Tag:";FTS(-TM);" Find:";FTS 
(-FM) ;LEFT$(SP$,8Ø-POS(Ø)+1); 

419Ø COLOR FD,BD 

4290 PR-RN:UC--1:GOSUB 52999 

4219 ON INSTR(CA$,A$) GOSUB 6199,7599,4790,6999,7909,5899,4499,4599,7399,4390,76 
99,7792,6499,4699,6799,689,6599,6699,7499, 4399 

4220 ON INSTR(CSC$,CHR$(SC)) GOSUB 5499,5500,5909,5109,5209,5390,5499,5509,5699, 
5709,6309,6299:GOTO 4199 

439g ' seere Exit Edit/View section 

4310 RETURN 399 

4499 ' wk Edit/View help 

4419 F$="EDIT.HLP":GOSUB 5Ø9ØØ:IF HE THEN RETURN 4299 ELSE GOSUB 542ØØ:GOTO 5959 
4509 ' ek Set jump value 

4519 GOSUB 545ØØ:I$="" 

4520 LOCATE 25,1,Ø:PRINT"Reletive jump value:"; 

4539 L=5:T=3:GOSUB 526ØØ:X!=VAL(I$) 

4549 IF X!«l OR X!>MR THEN GOSUB 552ØØ:RETURN 4299 

4559 JV-SCINT(X!)-1:RETURN 

469g ' *** Set access level 

4619 GOSUB 54599:I$-"" 

4620 LOCATE 25,1,9:PRINT'"Current access level:";AL,"New access level:"; 

4639 L=2:T=3:GOSUB 5269 :X-VAL(I$) 

4640 IF X<Ø OR X>31 THEN GOSUB 552ØØ:RETURN 4299 

4659 AL=CINT(X) :RETURN 

479g ' xxx Set delete level 

4719 GOSUB 545ØØ:I$="" 

4729 LOCATE 25,1,0:PRINT"Current delete level:";DL,"New delete level:"; 

4730 L=2:T=3:GOSUB 526ØØ:X=VAL(I$) 

4740 IF X<Ø OR X>31 THEN GOSUB 552ØØ:RETURN 4299 

4750 DL=CINT(X) :RETURN 

509g ' *** View previous record that qualifies 

5919 RN-RN-1:1IF RN<1 THEN RN-PR:GOSUB 566ØØ:RETURN 4299 

5920 GOSUB 5Ø4ØØ:IF AL<DR THEN 5919 

5039 IF TM AND (TG=Ø) THEN 5919 

5940 IF NOT FM THEN GOSUB 59399:GOTO 5999 

5959 GOSUB 59699:IF DF THEN 5999 ELSE 5919 

5199 ' xxx View next record that qualifies 

5119 RN=RN+1: IF RN>MR THEN RN=PR:GOSUB 565ØØ:RETURN 4299 

5129 GOSUB 59499:IF AL<DR THEN 5119 

5139 IF TM AND (TG=Ø) THEN 5119 

5149 IF NOT FM THEN 5999 

515% GOSUB 59699:IF DF THEN 5959 ELSE 5119 

5299 ' *** View previous record (no matter what) 

5219 RN-RN-1:IF RN«1 THEN RN-PR:GOSUB 566ØØ:RETURN 4209 

5220 GOSUB 59499:GOTO 5999 

5390 ' verk View next record (no matter what) 

5319 RN-RN41:IF RN>MR THEN RN-PR:GOSUB 565ØØ:RETURN 4299 

5329 GOSUB 5Ø4ØØ:GOTO 5999 

5499 ' xxx Move to beginning of file 

5419 RN-0:GOTO 5199 
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5599 "xxx Move to end of file 

5519 RN=MR+1:GOTO 5999 

5699 ' verk Jump backwards JV records 

5619 RN-RN-JV:GOTO 59909 

57990 ' verk Jump forward JV records 

5719 RN=RN+JV:GOTO 5199 

5899 ' xxx Goto specific record 

5819 GOSUB 545ØØ:I$="" 

5820 LOCATE 25,1,Ø:PRINT"Record number to jump to:"; 

5839 L=5:T=3:GOSUB 52699:X!-VAL(IS$) 

5849 IF X!<l OR X!>MR THEN GOSUB 552ØØ: RETURN. 4299 

585% RN-CINT(X!) 

5909 ' vek Get record RN and print on screen 

5919 GOSUB 59399 

5959 "se Print current record on screen and return to input loop 
5960 IF DR>Ø THEN 54999 ELSE 54199 

6999 "xxx Edit current record 

691g E--1:GOSUB 522ØØ:IF Q THEN GOSUB 567ØØ:RETURN 429% ELSE ED-128:GOTO 59299 
619g ' *** Add record to end of database 

6119 IF MR>MS THEN GOSUB 553ØØ: RETURN 4299 

6120 GOSUB 545ØØ:E=Ø:GOSUB 522ØØ:IF Q THEN GOSUB 56799 :RETURN 4299 
6139 TG=Ø:DR=Ø:ED=Ø:NR=32:GOSUB 5ØlØØ:RN=PR:GOTO 5999 

6299 ' xxx Delete record 

6219 DR-DL:GOSUB 5Ø5ØØ:GOTO 5959 

639g ' verte Unkill record 

6319 DR=9:GOSUB 5Ø5ØØ:GOTO 5959 

6499 ' xx Update time/date stamp(s) 

6410 GOSUB 56ØØØ:GOSUB 5Ø2ØØ:GOTO 5999 

6599 ' xxx Toggle edit flag 

6519 IF ED=Ø THEN ED-128 ELSE ED=Ø 

6529 GOTO 59599 

6699 ' *** Toggle new record flag 

6619 IF NR=Ø THEN NR=32 ELSE NR=Ø 

6629 GOTO 59599 

6799 ' xxx Clear all edit flags 

6719 GOSUB 545ØØ:LOCATE 25,1,Ø:PRINT"Are you sure you want to clear all edit fla 
gs?"; 

6720 GOSUB 521ØØ:IF A$-"N" THEN GOSUB 567ØØ:RETURN 4299 

6739 IF A$<>"Y" THEN GOSUB 562ØØ:RETURN 4299 ELSE GOSUB 56999 

6749 FOR RN=1 TO MR:GOSUB 5Ø4ØØ:ED=Ø:GOSUB 59599:NEXT: GOTO 5499 
689g ' ser Clear all new record flags 

6819 GOSUB 545ØØ:LOCATE 25,1,9:PRINT"Are you sure you want to clear all new reco 
rd flags?"; 

6820 GOSUB 521ØØ:IF A$="N" THEN GOSUB 567ØØ:RETURN 4299 

6839 IF A$<>"Y" THEN GOSUB 562ØØ:RETURN 4299 ELSE GOSUB 56999 

6849 FOR RN=1 TO MR:GOSUB 5Ø4ØØ:NR=Ø:GOSUB 50509 :NEXT:GOTO 5499 
709g ' xxx Set find parameters 

7919 QS=Ø:1$="" 

7829 QS=QS+1 

7839 GOSUB 545ØØ:LOCATE 25,1:PRINT"Field to search by (up, down, & space to choo 
se/Q to quit):";:XF-1:GOTO 7989 

7949 GOSUB 52999:IF A$="Q" THEN SOUND 4ØØØ,1:RETURN 

7959 IF A=32 THEN 7999 

7955 IF SC=72 THEN 7965 

7969 IF SC=8Ø THEN 7975 ELSE 7949 

7965 XE-XF-1:IF XF<1 THEN XF=MF 

797% GOTO 7989 

7975 XF=XF+L:IF XF>MF THEN XF=1 

7089 LOCATE 25,64:PRINT F$(XF);LEFTS$(SP$,8Ø-POS(Ø));:GOTO 7949 
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7899 I$-"":QN(QS)-XF:T-T(XF):IF T»4 THEN T-3 ELSE IF T-2 THEN T=1 
7199 GOSUB 54599:LOCATE 25,1:PRINT"Data to search for: »s 
7195 L=L(XF):IF L>6Ø THEN L=6Ø 
711Ø UG=UC(XF) :GOSUB 526ØØ:I$="":0N T(XF) GOTO 7112,7112,7112,7114,7115, 7116, 711 
7,7114 

7112 ST$(QS)=A$:GOTO 7125 

7114 IF L<>1Ø THEN GOSUB 55299:GOSUB 53199:GOTO 71ØØ ELSE AS-MKIS(VAL(RIGHTS(AS$, 
4))) *cHR$ (VAL(LEFTS$ (A$ ,2) )) YCHR$ (VAL(MIDS(A$ ,4,2))) :8T$ (QS) -MID$ (A$, 2, L) YTLEFTS (A 
$,1)+RIGHTS$ (A$ ,2):GOTO 7125 

7115 ST$(QS)=MKIS(VAL(A$)):GOTO 7125 

7116 ST$(QS)-MKSS$(VAL(A$)):GOTO 7125 

7117 ST$(QS)-MKD$(VAL(A$)) 

7125 GOSUB 545ØØ:LOCATE 25,1:PRINT"Relation (l-Abs. —, 2-Left =, 3-Instring =, 4 
-Less than, 5-Greater than):"; 

7138 L=1:T=3:GOSUB 526ØØ:X=VAL(I$):IF X«l OR X>5 THEN GOSUB 552ØØ:GOSUB 531ØØ:G60 
TO 7125 

7135 RE(QS)-X:IF X=1 AND T(XF)<3 THEN ST$(QS)=ST$(QS)+LEFTS$(SP$, L(XF) - GENSER Cas 
))) 

7149 GOSUB 545ØØ:LOCATE 25,9:PRINT"Have the search paramaters for this field bee 
n set correctly?"; 

7145 GOSUB 52199:IF A$="N" THEN 7939 ELSE IF Agory" THEN GOSUB 56290: GOSUB 5319 
Ø: GOTO 7149 

7159. GOSUB 54599: LOCATE 25,17:PRINT"Are there any more paramaters to this search 
Ri 

7155 GOSUB 52199:IF A$="Y" THEN 7929 ELSE IF A$<>"N" THEN GOSUB 56299: GOSUB 5319 
9: GOTO 7159 

7169 RETURN 

739g ' *** Mass tag of database data that conform with find parameters 

7319 IF QS«1 THEN GOSUB 563ØØ:RETURN 4299 

7328 GOSUB 545ØØ:LOCATE 25,1,Ø:PRINT"Are you sure you wish to tag by the find pa 
rameters?"; 

7330 GOSUB 521ØØ:IF A$="N" THEN GOSUB 567ØØ:RETURN 4299 

7349 IF A$<>"Y" THEN GOSUB 562ØØ:RETURN 4299 

735% FOR RN-1 TO MR:GOSUB 59499:GOSUB 5Ø6ØØ:IF DF THEN TG-64 

7369 GOSUB 5Ø5ØØ:NEXT:GOTO 5499 

7499 ' *** Toggle tag of record 

7419 IF TG=Ø THEN TG=64 ELSE TG=Ø 

7429 GOTO 59599 

7599 ' ert Clear all tags in database 

7519 GOSUB 545ØØ:LOCATE 25,1,Ø:PRINT"Are you sure you want to clear all tags?"; 
7520 GOSUB 521ØØ:IF A$="N" THEN GOSUB 567ØØ:RETURN 4299 

7539 IF A$<>"Y" THEN GOSUB 562ØØ:RETURN 4299 ELSE GOSUB 56999 

7549 FOR RN-1 TO MR:GOSUB 59409:TG-9:GOSUB 59599 :NEXT:GOTO 5499 

76990 ' xxx Toggle search view mode 

7619 IF QS«1 THEN GOSUB 56399:RETURN 4299 

7629 FM=(FM=Ø) : RETURN 

7709 ' xxx Toggle tag view mode 

7719 TM=(TM=Ø) : RETURN | 

BØØØ 'yeieteleleroteletejteteiejetetelejetelejotetelejejeletelejelelelejeteleleletetoledekeieleleieletoedeletetejejoteejettefedetoteteejotete 
899l '* Database format functions * 
8992 KINI INI HINA IIH IRISH IAI ITN A IIA IA III IIS III HII ILI IIE IA IIS FIR ICH, 
8993 ' 

8919 GOSUB 56999; RUN"DBFORM" 

9999 1 Jetelejeedeoleielesetetetelesetetejelesetejetedeteleseteteteleteleteleseteledeteleteiedelefetedetetejenotefoletetelefeteteteferedete tede 
999l '* Print/Report functions * 
9992 VHRR IIA IIIT A IIMA IIIA IIIA IIH II III IIIA IIIS III SALSA TISDALE II AIA IIIA IIIA 
9993 "' 

9919 GOSUB 5699%:RUN" PRINT" 

65999 SAVE"MAIN. BAS" 






















































92 PCM February 1986 











Listing 3: 


115 IF ND THEN 499 

295 IF NS THEN 499 

499 ' ver Main menu for overlay 

4g5 ' xx Current overlay = DBFORM.BAS 

496 ON ERROR GOTO 49999 

499 KEY OFF:COLOR FD,BD:CLS: LOCATE 3,1,9 

419 GOSUB 543ØØ:PRINT TAB(21)"-=*=- Database format functions -=*=-":GOSUB 5439 
Ø: PRINT 

42Ø PRINT TAB(25)"B)uild subdatabase" 

43Ø PRINT TAB(25)"C)hange current key database" 

44Ø PRINT TAB(25)"D)elete database" 

45Ø PRINT TAB(25)"F)ield name change" 

46Ø PRINT TAB(25)"K)ill subdatabase" 

47Ø PRINT TAB(25)"L)ist database characteristics" 

48Ø PRINT TAB(25)"M)ake database" 

49Ø PRINT TAB(25)"X)tend maximum record limit" 

59g PRINT:PRINT TAB(25)"E)xit to DOS" 

505 PRINT TAB(25)"R)eturn to main menu" 

519 PRINT TAB(25)"H)elp" 

699 PRINT:LOCATE 29,1,9:GOSUB 543ØØ:PRINT TAB(34)"Enter Choice:";:GOSUB 52199:GO 
SUB 54599 

619 ON INSTR("BCDFKLMXERH",A$) GOTO 1999,3999,5999,7999,9999,11999,13999,15999,9 
59,992,899 

620 SOUND 4999,1:GOTO 699 

899 ' xxx Main Menu Help 

819 F$="DBFORM.HLP":GOSUB 5999g:IF HE THEN 699 ELSE 499 

99g ' er Return to main menu 

919 GOSUB 56ØØØ:RUN"MAIN" 

95g ' *e** Return to DOS 

969 CLOSE:SYSTEM 

LØØØ 'eleeketelecieleeleieieieieleiciejeieieleleieieeioleieieleielejelejeteleielelelejeleejetelejotetejetetejeteejetejeteteeteteyoteedote 


1991 "x Build subdatabase * 
1992 HRI AAAI HII NII IAAI AIPA IAI IIIA IIIA AINA III NAA IS AISI A IIR IIIS NII KTS KSK AK 


1993 ' 
1919 CLS:GOSUB 543ØØ: PRINT TAB(25)"-=*=- Build Subdatabase -=*=-":GOSUB 54399 
1929 LOCATE 19,1,9:PRINT"Subdatabase name:"; 
I$="":L=6Ø:T=1:UC=Ø:GOSUB 526ØØ:IF I$="" OR A=17 THEN 499 
LD-LD41:SN$(LD)-I$ 
E=9 
GOSUB 52499:CLS 
LOCATE 1Ø,8,Ø:PRINT"Are you sure you are finished creating this subdatabase 


GOSUB 521ØØ:IF A$-"N" THEN E--1:GOTO 1519 
IF AS<>"Y" THEN GOSUB 562ØØ:GOTO 1529 
CLS: LOCATE 19,21,9:PRINT"Compiling subdatabase - Please Wait...." 
GOSUB 53ØØØ:IF SM=Ø THEN BEEP:GOTO 499 
1699 XF=1:FOR XS=1 TO SM:CLS:COLOR FH,BD:PRINT S$(PX(XS)); 


1619 LOCATE 1,PY(XS)-1,Ø:COLOR FE,BE:PRINT":";:COLOR FD,BD:LOCATE 2,1,9:GOSUB 54 


39g 


1629 LOCATE 3,1,Ø: PRINT" Use the up and down arrows to scan through the availa 


ble database fields." 

1639 PRINT"When the desired field is found, press the space bar." 
1649 COLOR FH,BD:GOTO 1729 

1659 GOSUB 52ØØØ:IF A=32 THEN 1739 

1669 IF SC-72 THEN 1689 

1679 IF SC-89 THEN 1799 ELSE 1659 
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1689 XF=XF-1: IF XF«1 THEN XF=MF 

1699 GOTO 1719 

1799 XF-XF41:IF XF>MF THEN XF-1 

1719 LOCATE 11,1,9:PRINT LEFT$(SP$,89); 

1728 LOCATE 11,(8Ø-LEN(F$(XF)))/2,Ø:PRINT F$(XF);:GOTO 1659 

1739 COLOR FD,BD:IF SL(XS)-L(XF) THEN 1779 

1749 LOCATE 15,1,0:PRINT"Field lengths do not match, has the correct field been 
selected?"; 

1759 GOSUB 521ØØ:IF A$="N" THEN TW-15:BW-15:GOSUB 54499:GOTO 1659 

1769 IF A$="Y" THEN E=-1:GOTO 1510 ELSE GOSUB 562ØØ:GOTO 1749 

1779 SF(XS)-XF:NEXT 

1899 NS-9:SN-LD:SNS$-RIGHT$(ZFS4HEX$ (SN) , 2) 

1819 OPEN"R",4,CD$+".F"+SN$,4:FIELD 4,2 AS SF$,1 AS PX$,1 AS PY$ 

1829 LSET SFS=MKI$(SM):PUT 4,1 

1839 FOR XS=1 TO SM:LSET SF$-MKIS(SF(XS)):LSET PX$=CHR$(PX(XS) ) 

1849 LSET PYS-CHRS(PY(XS)):PUT 4:NEXT:CLOSE 4 

1859 OPEN"R",4,CD$+".S"+SN$,8Ø:FIELD 4,89 AS S$ 

1869 FOR X-1 TO 24:LSET S$=S$(X):PUT 4,X:NEXT:CLOSE 4 

1879 OPEN"O",4,CD$4".SUB":FOR X-1 TO LD: PRINT #4,SN$(X):NEXT: CLOSE 4 

1889 OPEN"O",4,"CDBASE.PTR":PRINT #4,CD$:PRINT %4,SN:PRINT #4,CR:PRINT #4,0D:CLO 
SE 4 

1899 LSET MX$=CHR$(LD)+CHR$(LR) :PUT 1,5:GOTO 399 

39g 'cleeielejeielejeteteletejeletejeeteieieleieiejeteleieieteelejeteleiekejetetejekejetetejekejelejejekejeleseieietetesetejetetejetejeteteye 
39gl '* Change current key database * 
3992 RII IIIA IIIA IAAI RIA RIK IIR IAI AAI AISA IAI IIIS L ISSA VIIA IASI RIV NI VII AN 
3993 ' 

3919 CLS:GOSUB 543ØØ:PRINT TAB(19)"-=*=- Change current key database -=*=-":GOSU 
B 54399: I$="" 

3929 LOCATE 11,:PRINT"Which drive contains the new database to select?"; 

3939 L-1:T-2:UC--1:GOSUB 526ØØ:IF I$="" OR A=17 THEN 499 

3935 IF I$«"A" OR I$>"Z" THEN GOSUB 551ØØ:GOTO 3929 

3949 GOSUB 54599:TW-11:BW-11:GOSUB 544ØØ:D$=I$:GOSUB 59899 

3959 IF E=Ø THEN 3199 

3969 IF E=18 THEN LOCATE 11,24:PRINT"No databases found on this drive":GOTO 3989 
397g LOCATE 11,24:PRINT"Error in reading disk directory!" 

398g LOCATE 13,23:PRINT"Hit any key to return to the menu":GOSUB 52ØØØ:GOTO 499 
3199 XD=1 

3129 LOCATE 5,1,9:PRINT" Use the up and down arrows to scan through the availa 
ble databases, Q or control Q to quit." 

3139 PRINT"When the desired database is found, press the space bar." 

3149 COLOR FH,BD:GOTO 3229 

3159: GOSUB 52ØØØ:IF A=32 THEN 3239 

3155 IF A-17 OR A-81 THEN 499 

3169 IF SC=72 THEN 3189 

3179 IF SC=8Ø THEN 3299 ELSE 3159 

3189 XD-XD-1:IF XD<1 THEN XD=N 

3199 GOTO 3219 

3299 XD=XD+1:IF XD>N THEN XD=1 

3219 LOCATE 11,1,Ø:PRINT LEFT$(SP$,89); 

3229 LOCATE 11,(8Ø-LEN(N$(XD)))/2,Ø:PRINT N$(XD);:GOTO 3159 

3239 CD$-D$-4":"-N$ (XD) :SN=Ø:CR=Ø:SM=Ø 

3249 TW=4:BW=11:GOSUB 54499 

3259 LOCATE 11,22:PRINT"Loading database....Please wait..." 

3269 OPEN"O",A4,"CDBASE.PTR":PRINT #4,CD$:PRINT #4,SN:PRINT #4,CR:PRINT #4,0D:CLO 
SE:RUN 19 

59g RAIA IRIAN IAAI RII ATTA IH ITAA IIIA IIRL IA IR IIIS KLIN I NISSEN IN II AIAN 
5ØØL '* Delete database * 
5092 IIR II IKI IIA IIA IIIA IR ISA INI IIIS II AIA IAAI AIR ITI IA IIIT NIA INDI NIA IIIA 


5993 ' 
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5919 IF ND THEN GOSUB 55799:GOTO 699 

5915 CLS:GOSUB 543ØØ:PRINT TAB(22)"-=*=- Delete current database -=*=-":GOSUB 54 
3ØØ:SOUND 4999,1 

5929 GOSUB 528ØØ:LOCATE 11,13:PRINT"Are you sure you wish to delete the current 
database?"; 

5939 L-1:T-2:UC--1:GOSUB 52699:IF I$="N" OR A=17 THEN 499 

5949 IF I$<>"Y" THEN GOSUB 562ØØ:GOTO 5929 

5959 GOSUB 54599: TW=11: BW=11:GOSUB 544ØØ:LOCATE 11,22:PRINT"Deleting database... 
Please wait...." 

5969 CLOSE:KILL CD$4".*":NS--1:ND--1:NP--1 

5979 OPEN"O",1,"CDBASE.PTR":FOR X-1 TO 4:PRINT *1,"9g":NEXT:CLOSE:GOTO 499 

79g HAI IA IAAI IRIS IIR IRIN ASIII AIS IASI III IIASA IAI AVIS AIA INIA IAS ANIA IAI 
7091 "'* Field name change * 
7992 KIKI III HIRI H III NAIA IIIA IIR IA IIA III IIA IK ISIS IIIA IAS AIAN KAKAK KHK 
7993 ' 

7919 IF ND THEN GOSUB 55799:GOTO 699 

7915 CLS:GOSUB 543ØØ:PRINT TAB(25)"-=*=- Change field name -=*=-":GOSUB 54399 
7829 LOCATE 5,1,Ø:PRINT" Use the up and down arrows to scan through the availa 
ble database fields, Q or control Q to quit." 

7939 PRINT"When the desired field is found, press the space bar." 

7949 XF=1:COLOR FH,BD:GOTO 7119 

795% GOSUB 52999:IF A=32 THEN 7139 

7955 IF A=17 OR A=81 THEN 499 

7969 IF SC=72 THEN 7989 

797% IF SC=8Ø THEN 7199 ELSE 7959 

7989 XF=XF-1:IF XF<1 THEN XF=MF 

799% GOTO 7119 

719g XF=XF+1:IF XF>MF THEN XF=1 . 

7119 LOCATE 11,1,Ø:PRINT LEFTS$(SP$,89); 

7120 LOCATE 11,(8Ø-LEN(F$(XF)))/2,Ø:PRINT F$(XF);:GOTO 7959 

7139 LOCATE 14,1:PRINT"What is the new name for this field:"; 

7149 L=16:T=1:UC=Ø:GOSUB 52699:IF I$="" THEN GOSUB 55299:GOTO 7139 

7159 FOR X=1 TO MF: IF. X<>XF THEN IF I$=F$(X) THEN GOSUB 55ØØØ:GOTO 713g 

716g NEXT:FS(XF)-IS:OPEN"R",4,CDS4".FLD",29:FIELD 4,1 AS FL$,16 AS F$,1 AS T$,1 
AS L$,1 AS UC$ 

717g LSET FL$=CHR$(LEN(I$)):LSET F$=I$:LSET T$-CHRS(T(XF)):LSET L$=GHRS(L(XF)):L 
SET UC$=CHR$(-UC(XF) ) 

718g PUT 4,XF:CLOSE 4:GOTO 499 

JØØØ IRIN AAR IRI I IAI a III PIII AIA IAI AI AIA SIA IAI AIAN ITS NSAI AI III IH. 
9ØØ1 '* Kill subdatabase * 
9992. E HIRAI RII HIRI II IAI IN IH IH IIIS II AI AIH IAAI SKIT I AI AIAN IN SHIP NII ASAI 
9993 ' 

9919 IF NS OR ND THEN GOSUB 55799:GOTO 699 

9929 CLS:GOSUB 543ØØ:PRINT TAB(26)"-=*=- Kill Subdatabase -=*=-";GOSUB 54399: PRI 
NT 

9939 PRINT" | Use the up and down arrows to scan through the available subdataba 
ses." 

9949 PRINT"When the desired subdatabase is found, press the space bar." 

9959 PRINT" To abort this function, press Q or control Q." 

9969 X=9:COLOR FH,BD:GOTO 916g 

9199 GOSUB 52ØØØ:IF A$="Q" OR A-17 THEN 499 

9119 IF A=32 THEN 9199 

9120 IF SC=72 THEN 9149 

9139 IF SC=8Ø THEN 9169 ELSE 9199 

9140 X-X-1:IF X«1 THEN X=LD 

915% GOTO 9179 

9169 X-X41:IF X>LD THEN X=1 

9179 TW=11:BW=11:GOSUB 54499 

9189 LOCATE 11,(8Ø-LEN(SN$(X)))/2,Ø:PRINT SN$(X);: GOTO 9199 
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9199 LOCATE 14,15,@:PRINT"Are you sure you want to delete this subdatabase?"; 

9299 GOSUB 52199:IF A$="N" THEN TW=14:BW=14:GOSUB 54499:GOTO 9199 

9219 IF AS<>"Y" THEN GOSUB 56209:GOTO 9199 

9229 X$-RIGHTS(ZFS$4HEXS$ (X) ,2) 

9239 KILL CD$+".F"+X$:KILL CD$+".S"+X$:LD=LD-1:IF X>LD THEN 9399 

9249 FOR XS=X TO LD: X$=RIGHTS$ (ZF$+HEX$ (XS) , 2) : X29-RIGHT$ (ZFS$+HEXS$ (X841) , 2) 
9259 NAME CD$+".F"+X2$ AS CD$4".F'"4X$ 

9269 NAME CD$+".S"+X2$ AS CD$+".S"+X$:SN$(XS)=SN$ (XS+1) : NEXT 

9279 XS=RIGHTS (ZF$+HEX$ (LD+1),2): KILL CD$+".F"+X$:KILL CD$+".5"+X$ 

9399 LSET MX$=CHR$(LD)+CHR$(LR):PUT 1,5 

9319 OPEN"O",4,CD$4".SUB":FOR X2-1 TO LD:PRINT %4,SN$(X2) :NEXT:CLOSE 4 
9329 IF SN>X THEN SN-SN-1:GOTO 9359 

9339 IF SN=X THEN SN=Ø:NS=-1:GOTO 9359 

9349 GOTO 399 ; 

9359 OPEN"O",4,"CDBASE. PTR": PRINT *4,CD$:PRINT #4,SN: PRINT #4,CR:PRINT %4,0D:CLO 
SE #4 

9459 IF NOT NS THEN 399 

9469 TW-4:BW-14:GOSUB 54499 

9479 LOCATE 11,2:PRINT"Since you have deleted the current subdatabase, make sure 
to select a new one!" 

9489 LOCATE 13,25:PRINT"Hit any key to return to menu":GOSUB 52ØØØ:GOTO 399 

1. 1. Ø Ø Ø 'Jceeteieteleteletetleictiejeieietetejeieieteieteieleleietejekeiojeteiekejelelejotejeletetelejotejeteiejetejeledetefejelejetejetedejedeyeteye 
LLØØL '* List database characteristics * 
11992 'Jotkeeteteleteketeleteiekeiekejeleteieteiokeiekeieteieteiteieketekejelejetokeieteieteletedeteieteielejekejelejetejetetedetejeteesedele 
11993 ' 

11919 IF ND THEN GOSUB 557ØØ:GOTO 699 

11915 CLS:GOSUB 543ØØ:PRINT TAB(2Ø)"-=*=- List database characteristics --*--":G 
OSUB 54399 

11929 LOCATE 11,18:PRINT"Do you want the output to go to the printer?";:GOSUB 52 
198:GOSUB 54599 

11939 IF A=13 OR A-17 OR A$="Q" THEN 499 

11949 IF A$="Y" THEN OD$="LPT1:":EL=52:UM=3; LOCATE 13,2Ø:PRINT"Hit any key when 
the printer is ready"; :GOSUB 52999: TW=11:BW=13:GOSUB 544ØØ:LOCATE 11,28 ,Ø: PRINT" 
-=*=- Printing -=*=-":GOTO 11199 

11959 IF A$="N" THEN OD$="SCRN:":EL=18:UM=Ø:CLS:GOTO 11199 

11969 GOSUB 562ØØ:GOTO 11929 

11199 OPEN OD$ FOR OUTPUT AS 4:LN=Ø 

11299 FOR XF-1 TO MF:IF LN=Ø THEN PRINT #4,STRINGS$(UM,19):GOSUB 12999:PRINT #4,” 

Fieldname";TAB(28);"Length", "Type" ,"LC allowed":GOSUB 12999: LN=3 

11219 PRINT #4,F$(XF);TAB(28);L(XF),TP$(TC(XF)), 

11229 IF T(XF)>2 THEN PRINT #4, ELSE IF UC(XF) THEN PRINT %4,"No" ELSE PRINT #4, 
"Yes" 

11239 LN=LN+1: IF LN«EL THEN 11399 

11249 GOSUB 12ØØØ:LN=Ø 

11259 IF UM=Ø THEN PRINT #4,TAB(28)"Hit any key to continue";:GOSUB 52ØØØ:CLS:GO 

TO 11399 

11269 PRINT *4,CHR$(12); 

11399 NEXT:GOSUB 12ØØØ: PRINT #4,"Record Length:";RL,,"Number of fields:";MF 
11319 PRINT #4,"Number of records:";MR,,"Datapool size:";MR*RL 

11329 IF UM=Ø THEN PRINT #4,TAB(25)"Hit any key to return to menu";:GOSUB 52999 
11339 CLOSE 4:GOTO 49g 

12999 PRINT #4,STRINGS$(79,"-") : RETURN 

13ØØg ` ' HYS HI deter debts HHA IIIA IISA IIIA III IAI IA ILI IAI II IIIS LIKI ICL IN IIIT III ICI 
13991 '* Make database * 

13992 "oeteleleiteleetetelejetelelelotetekedoteleiejeteleeieteledeioteteleieieteiedejeleleteletetetetotetelejetetetejetetelejotefetejetetejeke 

13993 ' 

13919 CLS:GOSUB 543ØØ: PRINT TAB(27)"-=*=- Make database -=*=-":GOSUB 54399 

13929 LOCATE 19,27,9:PRINT"Database name:"; 

13939 L=8:T=1:UC=-1:GOSUB 52699:IF I$-"" OR A-17 THEN 499 
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13949 CDS=I$;I$="":IF NOT ND THEN CLOSE 
13959 LOCATE 12,22,0:PRINT"Drive for database:"; 
13969 L-1:T-2:GOSUB 52699:IF I$-"" THEN GOSUB 55299:GOTO 13959 
13979 CD$=1$+":"+CD$:GOSUB 54599: IS="": TW=19:BW=12:GOSUB 54499 
13989 LOCATE 11,18,9:PRINT"Maximum number of records allowed in database:"; 
13999 L=5:T=3:GOSUB 526900: X!-VAL(IS) 
13199 IF X!>32767 THEN GOSUB 55399:GOTO 13989 
13119 IF X!<1 THEN GOSUB 552ØØ:GOTO 13989 
13129 MS=CINT(X!) :MF=9: RL=9%: MR=9: LD=Ø : LR=9 
13298 GOSUB 54599: I$="":MF=MF+1: TW=4: BW=24:GOSUB 54499 
13219 LOCATE 4,1,9:PRINT"Enter the following information for each field:" 
13229 LOCATE 6,1;,90;PRINT"Field name:"; 
13239 L=15;T=1:UC=9:GOSUB 52699: IF MF<2 THEN 13269 
13249 FOR X-1 TO MF-1:IF I$=F$(X) THEN GOSUB 55ØØØ:GOTO 13229 
13259 NEXT 
13269 F$(MF)-I$:GOSUB 54599: I$-"" 
13279 LOCATE 8,1,%:PRINT"Valid field data types:" 
13289 PRINT,"l1) Alpa/numeric":PRINT,"2) Alpha only" 
13299 PRINT,"3) Automatic time stamp":PRINT,"4) Automatic date RUBRA 
13399 PRINT,"5) Integer number (-32767>#>32767)" 
133198 PRINT,"6) Single precision number (7 significant digits)" 
13329 PRINT,"7) Double precision number (16 significant digits)" 
13325 PRINT;,"8) Date entry (MM-DD-YYYY)" 
13339 LOCATE 18,1,9:PRINT"Enter the number for the data type for this field:"; 
13349 L=1:T=3;GOSUB 52609; X-VAL(IS) 
13359 IF X«1 OR X>8 THEN GOSUB 55299:GOTO 13279 
13369 I$-"":T(ME)-X:GOSUB 54599 
13379 IF X=3 THEN L(MF)=8:UC(MF)=Ø:GOTO 13482 
13389 IF X-4 OR X=8 THEN L(MF)=1Ø:UC(MF)=Ø:GOTO 13482 
13399 IF X>4 THEN UC(MF)=Ø:GOTO 13459 
13499 LOCATE 19,1,Ø:PRINT"Should lower case letters be allowed to be entered?"; 
13419 L=L:T=2:UC=-1:GOSUB 52699 
13429 IF I$-"Y" THEN UC(MF)=Ø:GOTO 13449 
13439 IF I$-"N" THEN UC(MF)--1 ELSE GOSUB 56299:GOTO 13499 
13449 GOSUB 54599:I$-"" 
13459 LOCATE 29,1,9;PRINT"Maximum input length (79 max.):"; 
13469 L=2:T=3:GOSUB 52699 :X-VAL(IS) 
13479 IF X<1 OR X>79 THEN GOSUB 55299:GOTO 13459 
13489 L(MF)=X:GOSUB 54599 
13482 ON T(MF) GOTO 13484,13484,13484,13486,13485,13486,13487,13486 
13484 RL-RL*L(MF):GOTO 13499. 
13485 RL-RL42:GOTO 13499 
13486 RL-RL*4:GOTO 13499 
13487 RL=RL+8 
13499 LOCATE 22,23,Ø:PRINT"Is the above information correct?"; 
13599 GOSUB 52190 
13519 IF AS="N" THEN MF-MF-1:GOTO 13299 
13529 IF A$<>"Y" THEN GOSUB 56209 ELSE GOSUB 54599 
((1353Ø LOCATE 23,18,9:PRINT"Are there any more fields in this database?"; 
13549 GOSUB 52199 
13559 IF AS="¥" THEN 132909 
13569 IF A$<>"N" THEN GOSUB 56299 
13579 TW=4:BW=25:GOSUB 54499:LOCATE 12,21,9:PRINT"Initializing database - Please 
waits..." 
13699 OPEN"R",1,CD$*".MSC",;2:FIELD 1,2 AS MX$ 
13619 LSET MX$=MKIS(RL):PUT 1,1:LSET MX$=MKIS(MF):PUT 1 
13629 LSET MXS=MKIS(MS):PUT 1: LSET MXS=MKI$ (MR): PUT 1 
13639 LSET MX$=CHR$(LD)+CHR$ (LR): PUT 1 
13649 ND=Ø:NS=-1:NP=-1:SN=Ø:CR=Ø 
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13659 OPEN"R" 2, CDSE" FLD", 29: FIELD 2,1 AS FL$,;16 AS F$,1 AS TS,1 AS L$,1 AS UCS 
13660 FOR XF-1 TO MF:LSET FLS-CHRS(LEN(FS(XF))):LSET F$=F$(XF) 

13679 LSET T$-CHRS(T(XF)):LSET L$-CHRS(L(XF)):LSET UCS-CHRS(-UC(XF)) 

13689 PUT 2,XF:NEXT:CLOSE 2 

13699 OPEN"O",2,"CDBASE.PTR":PRINT $2,CD$;PRINT #2;SN: PRINT #2,CR: PRINT #2,0D:CL 
OSE 2 

13799 GOTO 399 

15 g g g Vyeckeyeokeseteeetetejeteieteteieteiejeietetetetedeteteteefetetesetesedee TIKI EI II IIA III IRIAN III IRE, 


15991 '* Extend maximum record limit * 
15992 HRI AIHA IAIN AIH IIIA IA IIA IIIA IKI IKI IKI IIIA III IAI IEN IAI IAI ASIA SI AIA INI 
15ØØ3 


15919 IF NS OR ND THEN GOSUB 55799:GOTO 699 

15929 CLS:GOSUB 54399:PRINT TAB(25)"-—*—- Extend maximum record limit -=*=-":GOS 
UB 54390 

15930 LOCATE 5,1:PRINT"Current maximum record limit is set at";MS:I$="" 

15949 LOCATE 11,1:PRINT"What is the new maximum record limit?"; 

15959 L-5:T-3:GOSUB 52699:IF I$="" OR A=17 THEN 499 ELSE X!-VAL(I$) 

15969 IF X!>32767 THEN GOSUB 553ØØ:GOTO 15949 

15979 IF X!<@ THEN GOSUB 552ØØ:GOTO 15949 

15989 MS=CINT(X!) :LSET MXS$=MKIS(MS):PUT 1,3:GOTO 399 

65999 SAVE "DBFORM, BAS" 


Listing 4: 


49g ' sert Main menu for overlay 

495 ' Jer Current overlay = DATAMAN.BAS 

499 KEY OFF:COLOR FD,BD:CLS:LOCATE 4,1,9 

419 GOSUB 543ØØ:PRINT TAB(29)"-—*—- ^ Data manipulation functions -=*=-";GOSUB 54 
399: PRINT 

429 PRINT TAB(29)"E)rase database data" 

439 PRINT TAB(29)"0)rganize database" 

449 PRINT TAB(29)"S)ort database" 

459 PRINT TAB(29)"T)ransfer database data" 

599 PRINT: PRINT TAB(29)"R)eturn to main menu" 

519 PRINT TAB(29)"H)elp" 

699 PRINT: LOCATE 16,1,Ø:GOSUB 543ØØ:PRINT TAB(34)"Enter Choice:";:GOSUB 52199 :GO 
SUB 54599 

619 ON INSTR("EOSTRH",A$) GOTO 1999,3999,5999,7999,999, 899 

629 SOUND 4999,1:GOTO 699 

899 ' søre Main Menu Help 

819 F$="DATAMAN.HLP":GOSUB 59999:IF HE THEN 699 ELSE 499 

999 ' er Return to main menu 

919 GOSUB 56909 :RUN"MAIN" 

DGD HAHAHA INARA IA AIA INI IRIS IAAI IIA IN AVIRA IAI IN IR III AVIRA INIA ID ASN II, 
LØØL '* Erase database data * 
192 'seeteteteejeteietelejeteredeteletetetetetelejesejejetojejetedetetelejetekeyetejedcteleteteletetelejelelejetejejeteletetedetejedetefeejedee 
1993 ' 

191g IF ND THEN GOSUB 557ØØ:GOTO 699 

1915 CLS:GOSUB 54399; PRINT TAB(2Ø)"-=*=- Erase current database data -=*=-";GOSU 
B 54399:SOUND 4ØØP, 1 

1929 GOSUB 528ØØ:LOCATE 11,6:PRINT"Are you sure you wish to delete the data in t 
he current database?"; 

1939 L=1;T=2:UC=-1:GOSUB 52699:IF I$="N" OR A-17 THEN 499 

1940 IF I$<>"Y" THEN GOSUB 56299:GOTO 1929 

1959 GOSUB 54599: TW-11:BW-11:GOSUB 54499:LOCATE 11,22:PRINT"Deleting data...Plea 
se wait..." 

1960 CLOSE 2,3:KILL CD$4".DAT":MR-9:GOTO 399 

399g HRI I IHS HIRI HAIR IAI HII II HIS ISIN IR III IR III ION II AIA ISAS ANDAR LIN. 
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3991 '* Organize database * 
3992 SHAKIR IIIA IIIA AAAI III III II II IH IIIA III IR IIIS SHIH IIS III IISA SHIA AIH. 


3993 ' 

3919 IF ND THEN GOSUB 55799:GOTO 699 ELSE IF MR=Ø THEN GOSUB 56499:GOTO 699 

3915 CLS:GOSUB 543ØØ:PRINT TAB(29)"-=*=- Organize database -=*=-":GOSUB 54399:1$ 

=n 

3929 LOCATE 11,1:PRINT"What is the highest delete level to be immune from elimin 

ation?"; 

3939 L=2:T=3:GOSUB 52699:IF A=17 OR I$="" THEN 499 

3949 AL=VAL(I$):IF AL<1 OR AL>31 THEN GOSUB 552ØØ:GOTO 3929 

3959 GOSUB 54599: TW=11:BW=11:GOSUB 54499 

3060 LOCATE 11,21:PRINT"Organizing database....Please wait...." 

3979 CR=Ø 

319g FOR RN=1 TO MR:GOSUB 5Ø4ØØ:IF AL<DR THEN 3139 

3110 CR=CR+1:IF CR-RN THEN 3139 

3129 GET 2,RN:PUT 2,CR:GET 3,RN:PUT 3,CR 

3139 NEXT:MR-CR:GOTO 399 

59g IRIN I HAIN IIH IH IIIA IIIA IIH III IIIA INI IER III NII A IIIT IIIA IID IN IIR, 

5991 '* Sort database * 

5992 VHA IIIA IIIA IMAI NAIA IAAI IAIN IIIA II IAAI IR III III NIKI IR IATA IIA IR SIRI IN. 

5993" 

5919 IF ND THEN GOSUB 55799:GOTO 699 ELSE IF MR=Ø THEN GOSUB 564ØØ:GOTO 699 

5915 CLS:GOSUB 543ØØ:PRINT TAB(28)"-=*=- Sort database -=*=-":GOSUB 54399 

5929 LOCATE 5,1:PRINT" Use the up and down arrows to scan through the available 
database fields,":PRINT"Q or Control Q to quit." 

5939 PRINT" When the desired field for the current sort priority is found, pres 

S the":PRINT"space bar. Remember, low sort priorities are the most significant. 

u 

5049 LOCATE 11,8:PRINT"Current field:":LOCATE 13,1:PRINT"Current sort priority:" 
:X=1:X2=Ø:COLOR FH,BD:LOCATE 13,36:PRINT X2+1; "of"; MF 

5945 FOR XX=1 TO MF:X(X)=Ø:NEXT:GOTO 5139 

5959 GOSUB 52ØØØ:IF A$="Q" OR A=17 THEN 499 

5969 IF A=32 THEN 5149 

5979 IF SC=72 THEN 5999 

5989 IF SC=8Ø THEN 5119 ELSE 5959 

5099 X=X-1:IF X«l THEN X=MF 

5199 IF X(X) THEN 5999 ELSE 5139 

5119 X-X41:IF X>MF THEN X=1 

5120 IF X(X) THEN 5119 

5139 LOCATE 11,35:PRINT F$(X);LEFTS(SP$,16);:GOTO 595g 

5149 X2-X241:SP(X2)-X:X(X)--l:IF X2<MF THEN LOCATE 13,36:PRINT X2+1;"0£";MF:GOTO 
5119 

5150 TW=5;:BW=13:GOSUB 544ØØ:LOCATE 12,22:PRINT"Sorting database....Please wait... 
oM s 

5169 F=4:GOSUB 59990:M=MR 

(529g M=INT(M/2):IF M=Ø THEN 399 

5219 Jæ=L:K=MR-M 

(5229 I-J 

1,5239 L=I+M 

5249 GET 2,I:GET 4,L:FOR X-1 TO MF:X2-SP(X) 

5259 IF RD$(1,X2)=RD$(2,X2) THEN 5299 

526g ON T(X2) GOTO 5265,5265,5265,5279,5275,5289,5285,5279 

5265 IF RD$(1,X2)«RD$(2,X2) THEN 5329 ELSE 5390 

055279 IF (MIDS$(RD$(l1,X2),2,1)*LEEFTS$ (RD$ (1, X2) , 1L) -FRIGHTS (RDS (1, X2) 2) ) «(MIDS$ (RDS (2 

,32),2,1)*LEFT$(RD$(2,X2),1)*RIGHT$(RD$(2,X2),2)) THEN 5329 ELSE 5399 

5275 IF OVI(RD$(I,X2))«CVI(RD$(2,X2)) THEN 5329 ELSE 5390 

5289 IF CVS(RD$(l,X2))«CVS(RD$(2,X2)) THEN 5329 ELSE 5399 

5285 IF CVD(RD$(1,X2))«CVD(RD$(2,X2)) THEN 5329 ELSE 5399 

5299 NEXT:GOTO 5329 
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5399 GET 3,I:GET 5,L:PUT 2,L:PUT 3,L:PUT 4,I:PUT 5,I 
5319 I=I-M; IF I>Ø THEN 5239 

5329 J-J41:IF J>K THEN 5299 ELSE 5229 
799g PRI I RAIN IIL IRIN IIA IKI IIH IKI AIH II IIIA IKI IIIA IIA N IS AAA Se HSR I 
TØØL '* Transfer database data * 
79092 I HIRI AKIRA RIKI RIAA IR IAI IRIN IAI IAIN SIA IIH IIA II ITI IA III ANIA IIASA ASIII 
7993" 

7919 IF ND THEN GOSUB 55799:GOTO 699 

7915 CLS:GOSUB 543ØØ:PRINT TAB(23)"-=*=- Transfer database data -=*=-":GOSUB 543 

øp: 1$="" 

79029 LOCATE 11, :PRINT"Which drive contains the source database?"; 

7939 L=1:T=2;UC=-1:GOSUB 526ØØ:IF I$="" OR A=17 THEN 499 

7949 IF I$<"A" OR I$>"Z" THEN GOSUB 55199:GOTO 7929 

7959 GOSUB 54599: TW=11:BW=11:GOSUB 54499:D$-I$:GOSUB 59899 

7969 IF E=Ø THEN 7199 

7979 IF E-18 THEN LOCATE 11,24:PRINT"No databases found on this drive":GOTO 7999 
7989 LOCATE 11,24:PRINT"Error in reading disk directory!" 

7999 LOCATE 13,23:PRINT"Hit any key to return to the menu":GOSUB 52999:GOTO 499 

719g XD=1 

711g LOCATE 5,1,Ø:PRINT" | Use the up and down arrows to scan through the availa 

ble databases, Q or control Q to quit." 

7129 PRINT"When the desired source database is found, press the space bar." 

7139 COLOR FH,BD:GOTO 7229 

7149 GOSUB 52999:IF A=32 THEN 7239 

7159 IF A=17 OR A=81 THEN 499 

7169 IF SC=72 THEN 7189 

717% IF SC=8Ø THEN 7299 ELSE 7149 

718g XD-XD-1:IF XD<1 THEN XD=N 

7198 GOTO 7219 

729g XD-XD41:IF XD>N THEN XD=1 

7219 LOCATE 11,1,Ø:PRINT LEFT$(SP$,89); 

7229 LOCATE 11,(89-LEN(N$(XD)))/2,9:PRINT N$(XD);:GOTO 7149 

7239 DDS=CD$ : CDS=D$+": "+N$ (XD) 

7249 COLOR FD,BD:TW-4:BW-11:GOSUB 54499 

7259 LOCATE 11,13:PRINT"Loading source database information....Please wait...." 

7269 FOR XF=1 TO MF:T2(XF)-T(XF):L2(XF)-L(XF) : NEXT: TF-MF: XR-RL 

7309 OPEN"R",4,CDS4".MSC",2:FIELD 4,2 AS M2$ 

7319 GET 4,1:RL-CVI(M2$):GET 4,2:MF-CVI(M2$):GET 4,4: TR=CVI(M2$):CLOSE 4 

7329 OPEN"R",4,CD$+". FLD" ,29:FIELD 4,1 AS FL$,16 AS F$,1 AS T$,1 AS L$,1 AS UC$ 

7339 FOR XF=1 TO MF:GET 4,XF 

734Ø F2$ (XE) -LEFTS (FS, ASCC(FL$) )  T(XF) -ASC (T$) : L(XF)=ASC(L$) 

7359 NEXT:CLOSE 4 

7369 F=4:GOSUB 59999 :RL=XR:CD$=DD$ 

7362 IF MF>TF THEN X-MF ELSE X=TF 

7365 SWAP TF,MF:RL-XR:FOR XF=1 TO X:SWAP T2(XF),T(XF) :L(XF)=L2(XF) : NEXT 

7367 IF TR=Ø THEN GOSUB 564ØØ:GOSUB 53190:GOTO 499 

7378 TW-11:BW-11:GOSUB 54499 

7490 LOCATE 5,1:PRINT" Use the up and down arrows to scan through the available 
database fields,":PRINT"Q or Control Q to quit." 

7419 PRINT" When the desired source field for the current destination field is 
found," :PRINT"press the space bar. To skip the current source field, press the 

ENTER key." 

7429 LOCATE 11,5:PRINT"Source field:":LOCATE 13,1:PRINT"Destination field:":X=1: 

X2=Ø:COLOR FH,BD:LOCATE 13,36:PRINT F$(X241);LEFT$(SP$,16);:GOTO 7519 

7430 GOSUB 52999:GOSUB 54599: COLOR FH,BD:IF A$="Q" OR A-17 THEN CLOSE 3,4:GOTO 4 


9g 

7449 IF A=32 THEN 7529 
7459 IF A-13 THEN X-9:GOTO 7539 
7469 IF SC-72 THEN 748g 
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747g IF SC=89 THEN 75ØØ ELSE 7439 

7489 X=X-1:IF X<1 THEN X-TF 

7499 GOTO 7519 

7599 X=X+1;IF X>TF THEN X=1 

7519 LOCATE 11,35:PRINT F28(X);LEFTS(SP$,16);:GOTO 7439 

7529 IF (T(X2)>3 AND T(X2)<>T2(X)) OR (T(X2)<4 AND T2(X)>3) THEN SL$-"-2*—- Sour 
ce field does not match destination field's type -=*=-":GOSUB 54799:GOTO 7439 
7539 X2=X2+1:SP(X2)=X:IF X2<MF THEN LOCATE 13,36:PRINT F$(X2*1);LEFT$(SP$,16);:G 
OTO 759g 

7549 IF X2«MF THEN LOCATE 13,36:PRINT F$(X2+1);LEFT$(SP$,16);:GOTO 7599 

7559 TW-5:BW-13:GOSUB 54499:GOSUB 54599: LOCATE 12,22:PRINT"Transfering data.... 
lease wait...."; 

7699 FOR XR=1 TO TR:GET 4,XR:GET 5,XR 

7619 FOR XF-1 TO MF:LSET RD$(l,XF)-RD$(2,SP(XE)):LSET RI$(1)-RIS(2):NEXT 

7629 MR=MR+1:PUT 2,MR:PUT 3,MR:NEXT:CLOSE 4,5:GOTO 39g 

65999 SAVE"DATAMAN. BAS" 


Listing 5: 
409g ' verk Main menu for overlay 


495 ' er Current overlay = PRINT,BAS 
499 KEY OFF:COLOR FD,BD:CLS:LOCATE 4,1,Ø 


419 GOSUB 543ØØ:PRINT TAB(22)"-—*--  Print/Report functions -=*=-":GOSUB 54399:P 


RINT 

420 PRINT TAB(29)"C)hange current report" 

439 PRINT TAB(29)"D)efine output driver" 

449 PRINT TAB(29)"E)rase output driver" 

445 PRINT TAB(29)"F)ont/pitch change" 

459 PRINT TAB(29)"G)enerate reports!" 

469 PRINT TAB(29)"K)ill report" 

47Ø PRINT TAB(29)"O)utput driver selection" 

489 PRINT TAB(29)"P)rint reports" 

499 PRINT TAB(29)"S)et find paramaters" 

59g PRINT:PRINT TAB(29)"R)eturn to main menu" 

510 PRINT TAB(29)"H)elp" 

699 PRINT: LOCATE 21,1,9:GOSUB 543ØØ:PRINT TAB(34)"Enter Choice: "5 :GOSUB 521ØØ:G0 
SUB 54599 

61Ø ON INSTR("CDEFGKOPSRH",A$) GOTO 1999,3999,5999,17999,7999,9999,11999,13999,1 
5999 ,999 ,899 

629 SOUND 4ØØØ,1:GOTO 69g. 

89g ' sex Main Menu Help 

819 F$="PRINT.HLP":GOSUB 59999:IF HE THEN 699 ELSE 499 

90g ' ver Return to main menu 

919 GOSUB 56909 :RUN"MAIN" 

LØØØ RII IARI IA IIIA IR RII IIIA II IARI IIA TAIPEI I AID LAIKA IARI IAI III IRIN IIR. 
1ØØL '* Change current report * 
1992 SIMI A AIA IA AHIR AAAI HII IN IIIA IIR IAAL ISL IS IIIS IIL IIA IIA IA IAIN IRAE LE INIA IIH, 
1993 ' | | 

1Ø1Ø IF LR=Ø OR ND THEN GOSUB 55799:GOTO 699 

1929 CLS:GOSUB 543ØØ:PRINT TAB(23)"-=*=- Change current report --*e-": :G0SUB 543g 
Ø: PRINT 

1939 PRINT" Use the up and down arrows to scan through the available BERG AR " 
1949 PRINT"When the desired report is found, press the space bar." i 

1959 PRINT" To abort this function, press Q or control Q." i 

1969 X=Ø:COLOR FH,BD:GOTO 1139 

19079 GOSUB 52999:IF A$="Q" OR A=17 THEN GOSUB 56799: GOSUB: 531ØØ:GOTO 49g 

1989 IF A=32 THEN 1169 

1999 IF SC=72 THEN 111g 
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119g IF SC=89 THEN 1139 ELSE 1979 

1119 X=X-1:IF X«1 THEN X-LR 

“1129 GOTO 1149 

1139 X=X+1:IF X>LR THEN X=1 

1149 TW=11:BW=11:GOSUB 54499 

| 115Ø LOCATE 11, (89-LEN(RNS(X)))/2,9: PRINT RN$(X);:GOTO 1979 

1169, COLOR FD,BD:CR=X: CRS=RIGHTS (ZFS$+HEXS (CR) , 2) :NP=Q 

117Ø OPEN'O",4,"CDBASE. PERI PRINT $4,CD$:PRINT #4, SN: PRINT #4 ,CR: PRINT 3t, OD: CLO 

SE 4 

1189: GOTO: 259 i i | 
399g WRAITH IRIE IR TAR II III IOI III ITI ocr wcities 
3991 '* Define output driver * 
3992 BRIE RIDESHARE EISNER HE TOI IASI AOI NOE II IIT IT IIIS IIS 
3993. * 

3919 CLS: GOSUB 54399: PRINT TAB(24)"-=*=- Define output driver - ==": GOSUB 543ØØ 
PRINT 

3929 LOCATE 11,1:PRINT"Output driver name:"; 

(3932 L-6g:T-1:UC-9:GOSUB 52699:IF L=Ø OR A-17 THEN 40g 

3949 OD$ (MD+1)=I$;I$="LPT1:" 

3959 LOCATE 13,1:PRINT"Output driver device name (? to prompt on print) :"; 

3969 L=12;T=1:UC=-1:GOSUB 526ØØ:IF A=17 THEN 499 ELSE IF L-9 THEN GOSUB 5529g: GO 
TO 3959 

3999 DN$=I$;MD=MD+1: PM=Ø 

3199 PM=PM+1:GOSUB 545ØØ:TW=8:BW=14:GOSUB 54499: Tgi 

3119 LOCATE 8,1:PRINT"Font/pitch";PM;"name:'; 

3129 L=6Ø:T=1:UC=Ø:GOSUB 526ØØ:IF L=Ø OR A<>13 THEN GOSUB 55299: GOTO Ti 


(,3139 PN$(PM)-IS:IS$-"":GOSUB 54590 





314g NC=9 

315g NO=NC+LiI$="" | 
3169 LOCATE 19,1;PRINT"Control code";NC;"for font/pitch";PM;" (decimal ASCII code 
2): "s 

3179 L=3:T=3:GOSUB 526ØØ:IF A=17 THEN SOUND 4999,1:GOTO 3149 

3189 X=VAL(I$):IF L=Ø OR X<Ø OR X>255 THEN GOSUB 55299:GOTO 3169 

3199 PC(PM,NC)-X:GOSUB 54599 

3299 LOCATE 12,13:PRINT"Are their any more control codes for this font/piteh?"; 
3219 GOSUB 52199: IF A$="Y" THEN TW-12:BW-12:GOSUB 54499: GOTO idit 

| 3229 IF A$«»"N" THEN GOSUB 56299: GOTO 3299 

3239 NO(PM)-NC:GOSUB 54599 

3249 LOCATE 14,23:PRINT"Are their any more font/pitches?"; 

3259 GOSUB 521ØØ: IF A$="Y" THEN 3199 

3269 IF A$<>"N" THEN GOSUB 56209:GOTO 3249 

33ØØ OD=MD: Matt De 2) 

3395 OPEN"O"; |" CDBASE. PTR" : PRINT %4,CD$:PRINT #4,SN: PRINT: #4; CR: PRINT #4, OD: CLO 
SE *4 " 
3319 OPEN"O",4,"PRINTER.PTR":FOR X2-1 TO MD:PRINT #4, ODS (X2) : NEXT: CLOSE 4: GOTO 1 
7 

"M i FEIERTE NEN KEE RENEE TEE KE TIETE TESIEN TESTA IA TAITAI IITR NN 
5pgl '* Erase output driver * 
5992 * BAEAN AIHER AEREN AAR AASER ANER ARARE AARAA TN OKNIN C OR OON 
5003" 

SØLØ IF MD=Ø THEN GOSUB 56999:GOTO 699 i i 

5929 CLS:GOSUB 5439g:PRINT TAB(24)"-—*—- Erase output driver -=*=-":GOSUB 54399: 
PRINT i 

5939 PRINT" | Use the up and down arrows to scan through the available printer d 
rivers." 

5949 PRINT"When the desired printer driver is found, press the space bar. H 

5959 PRINT" | To abort this function, press Q or control QU 

5969 X=Ø:COLOR FH,BD:GOTO 5139 i 

5979 GOSUB 52ØØØ:IF A$-"Q" OR A-17 THEN 499 
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5989 IF A-32 THEN | 5169: 

5999 IF SC-72 THEN 5110 

519g IF SC=8Ø THEN 5139 ELSE 5978 

5119 X-X-1:IF X«1 THEN X=MD 

5129 GOTO: 5149 

5139 X=X+1:IF X>MD THEN X=1 

514Ø TW=11:BW=11;GOSUB 54499 

515% LOCATE 11,(89- LEN(SN$(X)))/2, g: PRINT SNS (X) 3} GoTo > 597g. HH: 

5169 LOCATE 14,14,9:PRINT"Are you sure you want to delete this printer driver?™; 
5179 GOSUB 52199:IF A$="N" THEN TW=14:BW=14: GOSUB feti hb det TH i 
5189 IF A$<>"Y" THEN GOSUB dat GOTO 516g | 

5199 XS=RIGHTS (ZFS+HEX$ (X), 2) | 

52ØØ KILL "DRIVER, D"+X$:MD=MD-L:IF | X>MD THEN 5239. H i RD 

5219 FOR XS-X TO MD: X$-RIGHT$ (ZFS$+HEXS (XS) ,2) : X2S-RIGHTS (ZFS-+HEXS (XS41) , P 

5220 NAME "DRIVER, D"+X2$ AS "DRIVER.D'4X$:0D$(XS)9ODS(XS*1):NEXT | 


5239 OPEN"O",4, "PRINTER. PTR": FOR X2=1 TO MD: PRINT #4, 0D$(X2) NEXT: ‘CLOSE 4 


5249 IF OD»X sud OD=0D-1: GOTO 5279 
5259 IF OD=X THEN OD-9:0D--1:GOTO 05279. 
5269 GOTO 399 


527Ø OPEN'"O", 4, " CDBASE. PTR": PRINT #4, ops PRINT #4, SN: ier "s CR: PRINT #4, 0D: CLO 


SE #4 
5289 IF NOT NS THEN 399 
5299 TW=4:BW=14:GOSUB 54499 


539g LOCATE 11,3: dte you have deleted jid current | driver, make sure: to mu 


elect a new one!" 

5319 LOCATE 13,25:PRINT"Hit any key to return to menu": GOSUB 52999: GOTO 399 
789g Herein Hi 
TØØL '* Generate reports. | db HH: 
7892 ' yagene i 
7993." 

7919 CLS:GOSUB 543ØØ:PRINT TAB(26) "== elis reports en MG Bessel 54399 
7920 LOCATE 19,1,9:PRINT"Report Name: "; 


7939 1$="":L=66:T=1:UC=Ø:GOSUB 526ØØ: IF I$-"" OR A-17 THEN SOUND ‘apg, 1:GOTO: e 


7949 LR=LR+1:RNS(LR)=I$:1$="": TW=9:BW=11;GOSUB 54499:E-9 . 
7959 LOCATE 6,2,0:PRINT"Report width (number of. fei H 


7869 L-3:T-3:GOSUB 52699:GOSUB 54300: RW-VAL(IȘ): IF RWSL OR RW>255 THEN GOSUB 552 uu 


Øg: GOTO 7959 ELSE I$="" 
7979 LOCATE 8,5,Ø:PRINT"Number of ee per FP page:"; 


7989 L-3:Te3:GOSUB 526ØØ:GOSUB 54599: Moe IF PL«l THEN GOSUB 33298 6070 i 


7Ø ELSE I1$="" 
7999: LOCATE 19,7,9: PRINT"Number of lines for bab margini"; 


7199 L=2:7=3:GOSUB 526ØØ:GOSUB 54599: TH-VAL (I$): IF gal THEN GOSUB. 55299: Goro 19 


99 ELSE I$="" 
7195 IF TM>=PL THEN GOSUB 56899: Goro 7999. | 
711Ø LOCATE 12,4,Ø:PRINT"Number of lines for bottom margin:"; 


7128 L-2:1«3:G0SUB 526ØØ:GOSUB 545gg:BM-VAL(IS): IF BM<Ø THEN GOSUB 55290: GOTO 71. 


1Ø ELSE I$="" 
7125 IF BM>=PL OR TM+BM>=PL THEN GOSUB 56809: GoTo. 711g 
7138 LOCATE 14,1,Ø:PRINT"Number of characters for left margin:"; 


3g 

7145 IF LM>=RW THEN GOSUB 56899: GOTO 7139 i 

7159 LOCATE 16,23:PRINT"Is the above information correct?" : PUTA iud. 
7169 IF A$="N" THEN TW=6:BW=16:GOSUB 54499: GOTO 1959. 

7179 IF A$<>"Y" THEN GOSUB 56299:GOTO 7159 ^ ^. 

7189 I$-"":TW-6:BW-16:GOSUB 544ØØ:GOSUB 54590: E=Ø 


7149 L=2:T=3:GOSUB 526ØØ:GOSUB 54599; Vots IF MØ THEN GOSUB. 55299: GOTO, 71 


7399 LOCATE 1Ø,2:PRINT"On the next page, enter the report definition using the up 


ull screen editor." 
7319 PRINT TAB(3)"TO exit the full screen | editor, PEARS: hilini Q. QUNM key t 
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9 continue.":GOSUB 52999 


7315 GOSUB 54599 

7329 GOSUB 533ØØ:GOSUB 54599 

7339 LOCATE 25,16:PRINT"Are you sure you are done creating the report?";:GOSUB 5 

219g 

7349 IF A$="N" THEN E--1:GOTO 7329 

7345 IF AS<>"Y" THEN GOSUB 562ØØ:GOSUB 53199:GOTO 7339 

7359 GOSUB 545ØØ:LOCATE 25,1:PRINT"Position highlight over start of field block. 
Hit the space bar to select.";:X2-1:X-1:GOSUB 741Ø:BS=X 


7355 GOSUB 54599:LOCATE 25,1:PRINT"Position highlight over end of field block. 


Hit the space bar to select.";:GOSUB 741Ø:BB=X 

7369 IF BS>BB THEN SL$="-=*=- End must be after start of field block -=*=-":GOSU 
B 54799:GOSUB 53199:GOTO 7359 

7365 COLOR FE,BE:FOR X=BS TO BB:LOCATE X,1:PRINT MID$(RSS$(X),SP-XC41,80);:NEXT:C 
OLOR FD,BD 


2378; GOSUB 54599:LOCATE 25,1Ø:PRINT"Is the highlighted area the desired repetati 


ve field block?";:GOSUB 52199 

7375 IF A$="N" THEN FOR X=BS TO BB:LOCATE X,1:PRINT MIDS(RS$(X),SP-XC+1,8Ø); :NEX 
T:GOTO 7359 

7376 IF A$<"Y" THEN GOSUB 562ØØ:GOSUB 53199:GOTO 7379 ELSE 7599 

738g GOSUB 52ØØØ:IF A=32 THEN RETURN 

7385 IF SC-72 THEN 7395 

7399 IF SC=89 THEN 7495 ELSE 738g 

7395 X-X-1:IF X«1 THEN X=24 

7499 GOTO 7419 

7495 X=X+1:IF X224 THEN X=1 

741%: GOSUB 7415:LOCATE X,1:COLOR FE,BE:PRINT MID$(RS$(X) ,SP-XC+1,89) ;:X2=X:GOTO 
7389 

7415 LOCATE X2,1:COLOR FD,BD:PRINT MID$(RS$(X2) ,SP-XC+1,89) ; :RETURN 

7599 CLS:COLOR FD,BD:GOSUB 545ØØ:LOCATE 19,23:PRINT"Compiling report...Please Wa 
it; 

7519 GOSUB 53599:IF RT=Ø THEN GOSUB 57999:E=-1:GOTO 7329 

7515 IF LL>PL-TM-BM THEN GOSUB 57199:CLS:E--1:GOTO 7059 

7529 XF=1:XR=Ø:FOR XS=1 TO RT:OLS:COLOR FH,BD:X2=XR(XS)-2:IF X2«1 THEN X2=1 


75389: FOR X3-X2 TO XR(XS):PRINT MIDS$(RS$(X3),YR(XS),89):NEXT:LOCATE CSRLIN-1,1 


7549 COLOR FE,BE:PRINT MID$(RS$(XR(XS)) ,YR(XS),1): COLOR FD,BD:GOSUB 54399 


117559. PRINT" Use the up and down arrows to scan through the available database 


fields." 
7569 PRINT"When the desired field is found, press the space bar. To skip a fiel 
d, press":PRINT"the ENTER key." 


7579 COLOR FH,BD:GOTO 7669 
7589 GOSUB 52ØØØ:IF A=32 THEN 7679 


7599 IF A=13 THEN 7729 

7699 IF SC=72 THEN 7629 

7619 IF SC=8Ø THEN 7649 ELSE 7589 

7629 XF=XF-1:IF XF<1 THEN XF=MF+9 

7639 GOTO 7659 

7640 XF=XF+1:IF XF>MF+9 THEN XF=1 

765Ø LOCATE 11,1,9:PRINT LEFTS(SP$,89); 

7669 LOCATE 11,(89-LEN(FS(XF)))/2,9:PRINT F$(XF);:GOTO 7589 

7679 COLOR FD,BD:IF (RT(XS)=1 AND (T(XF)<5 OR T(XF)-9)) OR (RT(XS)-2 AND T(XF)>4 
“AND T(XF)«8) THEN 7719 

7689 LOCATE 15,7,9:PRINT"Field types do not match, has the correct field been se 
lected?"; 

7699 GOSUB 521ØØ:IF A$="N" THEN TW-15:BW-15:GOSUB 544ØØ:GOTO 758g 


(7790 IF A$="Y" THEN E--1:GOTO 7329 ELSE GOSUB 56299:GOTO 7689 
7719 XR-XR41:RF(XR)-XF: RY(XR) -YR(XS) : RX (XR) -XR(XS) 
| 7720 NEXT:IF XR=Ø THEN GOSUB 57ØØØ:E=-1:GOTO 7329 
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7739 RM=XR:NP=9: CR-LR: CRS=RIGHTS (ZF$+HEX$ (CR), 2) 
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7749 OPEN"R",4,CDSt".R"4CR$,4:FIELD 4,2 AS SF$,I AS PX$,1 AS PYS 
7759 LSET SF$=MKIS$(RM):LSET PX$=CHR$(RW):LSET PYS-CHRS(PL):PUT 4,1 

7769 LSET SF$-CHRS(TIM)4CHRS(BM):LSET PX$=CHR$(LM):LSET PY$=CHR$(LL): PUT 4,2 
7778 LSET PX$-CHRS(BS):LSET PYS=CHR$(BB):PUT 4,3 

7789 FOR XS=1 TO RM:LSET SF$=MKIS(RF(XS)):LSET PX$=CHRS$ (RX(XS) ) 

7799 LSET PYS-CHR$(RY(XS)):PUT 4:NEXT:CLOSE 4 

789g OPEN'R! ,4,0D$+.P"+0R$ ,RW: FIELD 4,RW AS S$ 

7819 FOR X=1 TO LL:LSET S$=RS$(X):PUT 4,X:NEXT:CLOSE 4 

7829 OPEN"O",4,CDS*".RPT":FOR X=1 TO LR: PRINT $4,RN$(X):NEXT:CLOSE 4 

7839 OPEN"O",A4,"CDBASE.PTR":PRINT #4,CD$: PRINT #4,SN:PRINT #4,CR:PRINT #4,0D:CLO 
SE 4 

7840 LSET MX$=CHRS$(LD)+CHRS$ (LR): PUT 1,5:GOTO 399 

99g HPI I ARIA IN IIH IIIA VAR TA IA III IRIS LILIA III III AI LIAN IRIN II AIA IAI. 
9991 "K Kill report * 
99g2 WRIA AIRS IN IR IRR INIA IAAI LAI II III AISI I III IPI IN IDEN DAI ANI LIA AIA IIA. 
9993 

9919 IF NP OR ND THEN GOSUB 557ØØ:GOTO 699 

9929 CLS:GOSUB 543ØØ:PRINT TAB(28)"-=*=- Kill report -=*=-":GOSUB 543ØØ:PRINT 
9939 PRINT" Use the up and down arrows to scan through the available reports." 
9949 PRINT"When the desired report is found, press the space bar." 

9959 PRINT” To abort this function, press Q or control Q." 

9969 X=Ø:COLOR FH,BD:GOTO 9169 

919% GOSUB 52ØØØ:IF A$="Q" OR A=17 THEN 499 

9119 IF A-32 THEN 9199 

9129 IF SC-72 THEN 9149 

9139 IF SC=8Ø THEN 9169 ELSE 9199 

9149 X=X-1; IF X«1 THEN X=LR 

9159 GOTO 9179 

9169 X=X+1:IF X>LR THEN X=1 

9179 TW=11:BW=11;GOSUB 54499 

9189 LOCATE 11, (89-LEN(RNS$(X)))/2,@:PRINT RN$(X);:GOTO 9199 

9199 LOCATE 14,17,9:PRINT"Are you sure you want to delete this report?"; 

9200 GOSUB 521ØØ:IF A$="N" THEN TW-14:BW-14:GOSUB 54499:GOTO 9199 

9219 IF A$<>"Y" THEN GOSUB 56299:GOTO 9199 

9220 XS=RIGHTS (ZFS+HEX$ (X) , 2) 

9239 KILL CD$+".R"+X$:KILL CD$+".P"+X$ :LR=LR-1:IF X>LR THEN 9399 

9249 FOR XS=X TO LR: X$=RIGHTS (ZFS+HEX$ (XS) , 2) : X29 -RIGHT$ (ZF$+HEXS$ (XS4+1) , 2) 
9259 NAME CD$4".R"4X2$ AS CD$+"  R"+X$ 

9269 NAME CD$+".P"+X2$ AS CD$+".P"+X$:RNS$ (XS)=RN$ (XS+1) : NEXT 

9309 LSET MX$=CHR$(LD)+CHR$(LR) :PUT 1,5 

9319 OPEN"O";4,CD$*".RPT":FOR X2=1 TO LR:PRINT £4,RN$(X2):NEXT:CLOSE 4 

9329 IF CR>X THEN CR-CR-1:GOTO 9359 

9339 IF CR-X THEN CR=Ø:NP=-1:GOTO 9350 

9349 GOTO 399 

9350 OPEN'"O",4,"CDBASE.PTR":PRINT #4,CD$: PRINT #4,SN;PRINT #4,CR:PRINT #4,0D:CLO 
SE #4 

9459 IF NOT NP THEN 399 

9469 TW=4:BW=14:GOSUB 54499 

9479 LOCATE 11,4:PRINT'"Since you have deleted the current report, make sure to s 
elect a new one!" 

9489 LOCATE 13,25:PRINT"Hit any key to return to menu":GOSUB 52ØØØ:GOTO 399 
119g !'eeeeteleteleteietetetejetejeleteieteielejeteietejekejekejeletefetejeteeteietetetelelejetejeteketeleteletejelejetejetetejetelesetetetee 


11991 '* Output driver selection * 
11992 "'yoneieletaieietereieteteretelejetejeteteietetelejeteiejeleetelejeteieeteteletetetejetedejedetejetelejetotejetefejotejetetesetesesetetede 
11993 ' 


11919 IF MD=Ø THEN GOSUB 56999:GOTO 699 

11929 CLS:GOSUB 54399:PRINT TAB(22)"--*—- Output driver selection --*--":GOSUB 5 
4399: PRINT i 

11Ø3Ø PRINT" Use the up and down arrows to scan through the available output d 
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"rivers." 


11949 PRINT"When the desired output driver is found, press the space bar." 
11850 PRINT" To abort this function, press Q or control Q." 
11969 X=Ø:COLOR FH,BD:GOTO 11139 
11979 GOSUB 52999:IF A$="Q" OR A=17 THEN GOSUB 567ØØ:GOSUB 53199:GOTO 499 
11989 IF A=32 THEN 11169 
11999 IF SC=72 THEN 11119 
11199 IF SC=8Ø THEN 11139 ELSE 11979 
11119 X-X-1:IF X«1 THEN X-MD 
11129 GOTO 11149 
(011139 X-X41:IF X>MD THEN X=1 
11149 TW-11:BW-11:GOSUB 54499 
11159 LOCATE 11,(829-LEN(OD$(X)))/2,9:PRINT OD$(X);:GOTO 119070 
111690 COLOR FD,BD:0D=X:OD$=RIGHTS (ZFS+HEXS$ (OD) , 2) :NO=Ø 
11179 OPEN"O",4,"CDBASE.PTR":PRINT #4,CD$: PRINT #4,SN: PRINT %4,CR:PRINT $4,;0D:CL 
OSE 4 
11189 OPEN"I",4,"DRIVER.D"+0D$:INPUT #4,CP,PM,DNS 
11199 FOR X=1 TO PM: INPUT $4,PN$(X),NC(X) 
11299 FOR XC=1 TO NC(X):INPUT #4, PC(X,XC);NEXT:NEXT: CLOSE 4:GOTO 499 
1.3 ØØØ "SEVEN ted vere IEEE TERESE TEE AIA I TIL III ILIA AISI ISI ISI IIIS NSIS SKIT I TSI AISI AIAN 
13991. '* Print reports * 
1392 "'Yeeleteleleteiefetejeteterekejeteteredetekeeteietejedetejetejetetejelejejetejetetejesetedetejeseteietetesetejetejetetejetolejeteteieteteese 
13ØØ3 
13Ø1Ø IF ND OR NP OR NO THEN GOSUB 557ØØ:GOTO 699 ELSE IF MR«1 THEN GOSUB 56499: 
GOTO. 699 
13929. CLS:GOSUB 543ØØ:PRINT TAB(27)"-=*=- Print reports -=*=~";GOSUB 54390:PRINT 
13925 PP=Ø:FM=Ø:TS=Ø:NM=Ø:EM=Ø: IF QS-9 THEN 13969 
13930 I$="N": LOCATE 6,3:PRINT"Do you want to print by find paramaters?"; 
13949 L-1:T-2:UC--1:GOSUB 526ØØ:IF I$="" OR I$-"Q" OR A=17 THEN 499 ELSE IF I$=" 
Y" THEN FM--1:GOTO 13969 
13059 IF I$<>"N!" THEN GOSUB 56299:GOTO 13939 
13969 I$="N":LOGATE 8,8:PRINT"Do you want to print by tag status?"; 
13979 L-1:T-2:UC--1:GOSUB 526ØØ:GOSUB 545ØØ:IF I$="Y" THEN TS=-1:GOTO 13999 
13989 IF IS<>"N" THEN GOSUB 56299:GOTO 13969 
13999 IS="N": LOCATE 1Ø,1:PRINT"DO you want to print by new record status?"; 
13199 L=1:T=2:UC=-1:GOSUB 52699:GOSUB 54599:IF I$="Y" THEN NM=-1:GOTO 13129 
13119 IF I$<>"N" THEN GOSUB 56299:GOTO 13999 
13120 I$="N"; LOCATE 12,7:PRINT"Do you want to print by edit status?"; 
13139 L-1:T-2:UC--1:GOSUB 526ØØ:GOSUB 54599:IF I$="Y" THEN EM--1:GOTO 13159 
13140 IF I$<>"N" THEN GOSUB 56299:GOTO 13129 
13159 I$="9": LOCATE 14,29:PRINT"Access level of report:"; 
13169 L-2:T-3:GOSUB 52699:GOSUB 54599:AL=VAL(I$) 
13179 IF AL<Ø OR AL>31 THEN GOSUB 552ØØ:GOTO 13159 
13189 I$="N":LOCATE 16,8:PRINT"Do you wish to pause between pages?"; 
13199 L=1:T=2:UC=-1:GOSUB 526ØØ:GOSUB 545ØØ:IF I$="Y" THEN PP=-1:GOTO 13219 
13299 IF I$-o"N" THEN GOSUB 562ØØ:GOTO 13189 
13219 XD$=DN$:IF LEFT$(DN$,1)<>"?" THEN 13399 ELSE IF LEN(DN$)>1 THEN I$=MIDS$(DN 
$,2) ELSE I$="" 
13229 LOCATE 18,1:PRINT"Output device/filename:"; 
13239 L=12:T=1:UC=-1:GOSUB 526ØØ:GOSUB 54599:IF I$="" THEN GOSUB 55299:GOTO 1322 
Ø ELSE XD$-I$ 
13399 IF XD$-"SCRN:" THEN CLS:GOTO 13599 
13310 TW=5;BW=18:GOSUB 544ØØ:LOGATE 12,25:PRINT"Hit any key to start printing"): 
GOSUB 52990 
13329 TW-12:BW-12:GOSUB 544ØØ:LOCATE 12,36:PRINT"Printing" 
13599 OPEN"O” ,4,XD$: BP=-1:PA=PL-TM-BM:RS=BB-BS+1:ES=LL-BB:PN=%: LN=9:RD$(1,MF+8)= 
TIMES :RDS$(1,MF+9)=DATES 
13699 FOR X=1 TO NC(CP):PRINT $4,CHR$(PC(CP,X));:NEXT 
UL4ØØØ FOR RN=1 TO MR:GOSUB 59499:IF AL<DR THEN 14899 
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14919 IF TS AND TG=Ø THEN 14899 

14929 IF EM AND ED=Ø THEN 14899 

14939 IF NM AND NR=Ø THEN 14899 

14949 IF NOT FM THEN GET 2,RN:GOTO 14199 

14959 GOSUB 5Ø6ØØ:IF NOT DF THEN 14899 

14199 LN=LN+1L:RD$(1,MF+3)=MKIS$ (LN) :RD$.(1,MF+2)=MKIS (RN) : RDS (1; MF&4) -MKI$ (DR) 
14191 IF TG=Ø THEN RD$(L,MF+5)=" " ELSE RD$(L,MF+5)="%" 
14192 IF ED=Ø THEN RDS$(L,MF+6)=" " ELSE RD$(1,MF+6)="%" 
14193 IF NR=Ø THEN RD$(1,MF+7)=" " ELSE RD$(1,MF+7)="%" 
14195 IF NOT BP THEN 14299 

14119 PN=PN+1:RD$(1,MF+1)=MKI$ (PN): BP=@:FS=1;PR=BS-1 
14115 GOSUB 14859 

14129 PRINT %4,STRINGS(TM,13); 

14139 IF BS»1 THEN XS=1:XE=BS-1:XF=1:GOSUB 14999: FS=XF 
14299 XS=BS:XE=BB:XF=FS:GOSUB 14900 

14210 PR=PR+RS:IF PR+RS+ES<=PA THEN 14899 

14399 IF BB=LL THEN 14499 

14310 XS=BB+1:XE=LL:GOSUB 14999 

14499 PRINT *4,STRINGS$(PL-PR-ES-TM,13);:BP--1 

14899 NEXT: IF BB=LL OR BP THEN 14829 

14819 XS=BB+1:XE=LL: GOSUB 14999 

14820 GOSUB 14859:CLOSE 4:GOTO 499 

14859 IF PP AND PN>1 THEN SL$="Hit any key to continue, Q or control Q to quit": 


SOUND 4ØØØ,1:GOSUB 54699:GOSUB 52ØØØ:IF A=17 OR A$="Q" THEN CLOSE 4:RETURN 499 E 
LSE GOTO 54599 ELSE RETURN 


14999 ' xxx Print report from RS$(XS) to RS$(XE) 

14910 FOR XL-XS TO XE:XC-1 

14915 IF XL«RX(XF) OR XF>RM THEN PRINT s4,LEFTS(SPS,LM);RS$(XL);:GOTO Need 
14929 X=RY(XF+1) :IF RX(XF+1)<>RX(XF) OR XF=RM THEN X=RW 

14925 FD$=MIDS(RS$(XL),XC,X-XC) :ON T(RF(XF)) GOTO 1493Ø,1493Ø,1493Ø, 14932, 14935, 
1494Ø,14945,14932 

14939 PRINT #4,USING FD$;RDS(l,RF(XF));:GOTO 14959 

14932 XY=CVI(LEFT$(RD$(1,RF(1,XF)),2)) :XM=ASC (MIDS (RD$(1,RF(L,XF)),3,1)):XD=ASC( 

RIGHT$(RD$(1,RD(1,XF)),1)):PRINT #4,USING FD$;RIGHTS (ZFS+MID$(STR$ (XM) , 2),2);"-" 
;RIGHTS$ (ZFS+MID$ (STR$ (XD) , 2) ,2);"-";RIGHT$(ZFS+MID$ (STR$ (XY) ,2),4):GOTO 14959 
14935 PRINT #4,USING FD$;CVI(RDS(L,RF(XF)));:GOTO 14950 

14949 PRINT #4,USING FD$;CVS(RD$(1,RFCXF)));:GOTO 14959 

14945 PRINT #4,USING FD$;CVD(RDS(l,;RF(XF)));:GOTO 14959 

14959 XC=X:XF=XF+1:IF XC<RW THEN GOTO 14929 

14995 PRINT #4, :NEXT:RETURN 

159g VEI IEA dete IRIEN HPAI NIH III R IAA INA IKI INIA IK IIA IIA IA ANIA SIR IAI AIH IIH KAK 
15991 '* Set find paramaters * 
15992. yeeketeteietekejeieretejeietetetejetekefelejetekejetejejedetetesetetejetetetejetojetetetetesetetejetetetejetotejeesetesesedefejeleyeteyese 
15993 "' 

15019 IF ND THEN GOSUB 55799:GOTO 699 

15929 QS=g:I$="" 

15939 CLS:GOSUB 543ØØ:PRINT TAB(24)"-—*—- Set find Fm -=*=-":GOSUB 543900 
:PRINT:GOSUB 54599 

15949 QS=QS+L 

15959 LOCATE 5,1,Ø:PRINT" | Use the up and down arrows to scan through the avail 
able reports." 

15969 PRINT"When the desired search field is found, press the space bar." 

15970 PRINT" To abort this function, press Q or control Q." 

15989 XF=1:COLOR FH,BD:GOTO 15169 

15999 GOSUB 52ØØØ:IF A$="Q" OR A=17 THEN 499 

15199 IF A=32 THEN 15189 

15119 IF SC=72 THEN 15139 

15129 IF SC=8Ø THEN 15159 ELSE 15999 

15130 XF-XF-1:IF XF«1 THEN XF=MF 
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15149 GOTO 15169 

15159 XF=XF+1:IF XF>MF THEN XF=1 

15169 TW=11:BW=11:GOSUB 5449¢ 

15179 LOCATE 11,(8Ø-LEN(FS(XF)))/2,Ø:PRINT F$(XF);:GOTO 15999 

15189 I$="":QN(QS)=XF :T=T(XF) :IF T>4 THEN T=3 ELSE IF T>2 THEN T=1 

15199 LOCATE 13,1: PRINT"Data to search for:"; 

152ØØ L-L(XF):IF L>6Ø THEN L=69 

15219 UC-UC(XF):GOSUB 526ØØ:GOSUB 54599:I$-"":0N T(XF) GOTO 15229,15229,15229,15 
239,15240,15259,15269,15239 

15229 ST$(QS)-A$:GOTO 15279 

15239 IF L<>1Ø THEN GOSUB 55299:GOTO 15199 ELSE A$=MKIS(VAL(RIGHTS(AS,4)))+CHRS( 
VAL(LEFTS (A$ ,2)) )+CHR$ (VAL(MIDS(A$ ,4,2))) : ST$ (QS) -ZMID$ (AS , 2 ,1)+LEFTS (AS; 1)+RIGHT 
$(A$,2) :GOTO 15279 | 

15249 STS$(QS)-MKIS(VAL(A$)):GOTO 15279 

15259 ST$(QS)-MKSS$(VAL(A$)):GOTO 15279 

15269 ST$(QS)-MKD$(VAL(A$)) 

152790 LOCATE 15,1:PRINT"Relation between search data and database data:" 

15289 PRINT,"1) Absolute equivalent","4) Less than" 

15299 PRINT,"2) Left part equivalent","5) Greater than" 

15399 PRINT,"3) Instring equivalent" 

15319 LOCATE 29,25:PRINT"What is the relation number?"; 

15329 L=1:T=3:GOSUB 526ØØ:GOSUB 54599:X-VAL(IS):IF X«1 OR X55 THEN GOSUB 552ØØ:G 
0TO 15319 

15339 RE(QS)-X:IF X=1 AND T(XF)«3 THEN ST$(QS)=ST$(QSJ)+LEFTS(SP$, L(XF) -LEN(STS (Q 
8))) 

15349 LOCATE 22,9:PRINT"Have the search paramaters for this field been set corre 
ctly?'"; 

15359 GOSUB 52199:GOSUB 545ØØ:IF A$="N" THEN 15259 ELSE IF A$<>"Y" THEN GOSUB 56 
2ØØ:GOTO 15349 

15369 LOCATE 24,17:PRINT"Are there any more paramaters to this search?"; 

15379 GOSUB 521ØØ:GOSUB 545ØØ:IF A$="Y" THEN 15949 ELSE IF A$<>"N" THEN GOSUB 56 
2ØØ:GOTO 15369 

15389 GOTO 499 

1.7 ØØØ Hered betel dete A HHI AIH INIA AIR IA IIIA IIR III IAI ILRI KIS IIIS NIRS NIH IA III 
1799l '* Font/pitch change * 
1792 tYeehetejetetetetetetejeteletedeteteteteieteleteiekeeleketetefeietedetefetelejetejeteteletejetejekeejotejeteiejetejetejejelejetetegedetede 
17993 "' 

17919 IF PM=Ø THEN GOSUB 56999:GOTO 699 

17020 CLS:GOSUB 543ØØ:PRINT TAB(25)"-=*=- Font/pitch change -=*=-":GOSUB 543ØØ:P 
RINT 

17939 PRINT" Use the up and down arrows to scan through the available output d 
rivers." 

17949 PRINT"When the desired font/pitch is found, press the space bar." 

17959 PRINT" To abort this function, press Q or control Q." 

17969 X=9:COLOR FH,BD:GOTO 17139 

17979 GOSUB 52ØØØ:IF A$="Q" OR A-17 THEN GOSUB 567ØØ:GOSUB 53199:GOTO 49 

17989 IF A=32 THEN 17169 

17999 IF SC=72 THEN 17119 

17199 IF SC=8Ø THEN 17139 ELSE 17979 

17119 X-X-1:IF X«1 THEN X=PM 

17129 GOTO 17149 

17139 X-X41:IF X>PM THEN X=1 

17149 TW-11:BW-11:GOSUB 54499 

17159 LOCATE 11,(8Ø-LEN(PN$(X)))/2,Øø:PRINT PN$(X);:GOTO 17979 

17169 CP=X:COLOR FD,BD:OPEN"0",4,"DRIVER.D"+0D$: PRINT #4,CP: PRINT #4,PM:PRINT #4 
, DNS : 
17179 FOR X=1 TO PM:PRINT %4,PN$(X) :PRINT #4,NC(X) 

17189 FOR XC-1 TO NC(X):PRINT $&4,PC(X,XC):NEXT:NEXT:CLOSE 4:GOTO 499 

65999 SAVE"PRINT.BAS" 
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MEI Reviews 


Pop-Up DeskSet 
A Great Organizer 





Software 1000/1200/2000/3000 





For years now computers have been 
doing everything from simple math to 
putting a man on the moon. Surely all 
of this vast technology could be used to 
somehow organize my desk! Well, now 
you can go to the moon and organize 
your desk too. 

Recently, there have been a rash of 
new desk-top organizers appearing on 
the market. A great deal of them are for 
IBM compatible computers such as the 
Tandy 1000 and 1200. 

One to recently appear on the scene 
is Pop-Up DeskSet and Pop-Up 
DeskSet Plus. The two packages are 
identical except the Plus version in- 
cludes the module Pop-Up Modem for 
data communications as well as the 
standard module of Pop-Up Voice for 
voice communications. I will restrict my 
review to Pop-Up DeskSet. 

Pop-Up DeskSet, by Bellsoft, Inc., is 
a complete set of desk-top organization 
tools that are available at the touch of 
a key — even while running another 
program. These tools include a full- 
function calculator, business calculator, 
notepad, clipboard, calendar, alarm 
clock, voice dialer, DOS functions and 
an amazing Pop-up Anything. This last 
item is the best thing since pop-up 
pastries. 

The package comes in an attractive 








folding plastic box and includes three 
paperback manuals, two quick refer- 
ence cards and a single diskette. The 
instructions are clearly presented with 
only a few very minor typing errors in 
the manual. Two of these appear on 
Page 16 of the main manual. The first 
is in Section 3, Paragraph 2 stating 
“simply press ALT-N and the key that 
stands for the desk tool.” This should 
say “simply press ALT and the key that 
stands for the desk tool.” The second is 
in Section 5, Paragraph | stating “and 
the ALT-C will be passed on to your 
application.” This should read “and the 
ALT sequence will be passed on to your 
application.” 

System requirements for running 
Pop-Up DeskSet are a Tandy 1000, 
1200, 3000 or other IBM compatible, 
64K RAM (to run Pop-Up Voice, you 
need 128K) and one disk drive. Pop-Up 
Voice also requires a Hayes compatible 
modem. Unlike some desk-top organiz- 
ers, DeskSet allows you to select each 
individual module to suit your own 
needs and memory requirements. Each 
module is entirely RAM-resident and 
all help files are contained within the 
module itself. This means once Desk Set 
is loaded none of its modules are re- 
quired to remain in any drive. The 
modules themselves require anywhere 
from 13K for the alarm to 31K for the 
calendar. Pop-Up Anything requires 
various amounts of RAM depending on 
the applications you are running. Since 
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each module works stand-alone, they 
may be placed on your application 
diskettes as you require. 

The first thing you will want to do is 
create a working copy of DeskSet. You 





are provided with a utility to create or 
update your AUTDEXEC.BAT file. 
Simply type AUTOPOP and answer the 
questions as they are presented to you. 
You may select any combination or all 
of the “pop-ups” if you wish. When you 
are finished, you will have a new RUTO- 
EXEC.BRT file. When you boot your 
system using this disk, the selected pop- 
ups will automatically be loaded one at 
atime. Pop-Up Alarm should always be 
the first module loaded and Pop-Up 
Anything should be the last. 


A program called TLCESETUP allows 
you to configure Pop-Up Voicefor your 
system. You are allowed to choose the 
serial port (COM1 or COM2), Touch Tone 
dialing, a PBX dial-out sequence and a 


long distance service access and user 
code if you wish. You may also enter 
three commonly-used phone numbers if 
you like. If you have a color monitor, 
you may also set foreground and back- 
ground colors. 

Each Pop-Up module has its own 
unique invocation key. The following 
are the ones I am going to cover in the 
rest of this review: 


ALT-A Pop-up Alarm Clock 
ALT-B Pop-up Clipboard 


ALT-C Pop-up Calculator 

ALT-X Pop-up Financial Calculator 
ALT-D Pop-up Calendar 

ALT-N Pop-up Notepad 

ALT-U Pop-up PopDos 

ALT-V Pop-up Voice 


ALT-F10 Pop-up Anything 


If these key combinations are used in 
your applications, simply use them 
twice. The second entry will turn off the 
pop-up and will be passed on to your 
application. The key sequence ALT-F 
may also be used to “feed” information 
from pop-up to pop-up or from pop-up 
to application. 

There are four functions that are 
common to all of the pop-ups. You may 
position the pop-ups on the screen by 
using CTRL-right arrow to move clock- 
wise or CTRL-/eft arrow to move 
counter-clockwise. To toggle the color 
on and off, use CTRL-C. The F1 key will 
invoke a help screen for all pop-ups. 
The remainder of the options for each 
pop-up appear on a menu bar to the 
right of each one. They may be chosen 
by using a function key assigned to each 
option or by using the + (plus) and - 





WHY FIGHT IT?. . .SWITCH! 


TABCO PARALLEL Printer Switch 
connect 2 printers to one computer! 
PSM-C/2P — Manual printer switch. 
Prolongs the life of your printer/inter- 
face connectors. Saves time & money! 


MEET THE WIZARD" 


Quality / Price / Performance Guaranteed 
Easy to use! $29.95 for any one package 


9.95 for each additional 


Use your existing printer cable to 
connect TAB SWITCH to your compu- 
ter. Comes complete with two 3.5' 
cables to connect your printers. 
Straight-forward design makes it easy 
to set-up & use. 1 year limited war- 
ranty. 


ORDER TODAY 
Only $69.95 


Other models available. Dealer 
inquiries invited. $2.50 Shipping/ 
Handling. Florida residents add 
5% sales tax. 


For TANDY 1000, 1200, 2000, 3000 and Compatibles 


1. RAMDISK — Transform your spare memory into 
superfast disk(s). You specify size and number. 

* NEW * replace your old ramdisk software. 
Ours is BETTER. Automatic timed 
backup. Never again lose your ram- 
disk data. 

. UNDELETE Plus — Recover deleted files, display 
sorted directory tree, rename directories, cross di- 
rectory file search, quick sort directory display, 
change file attributes, and more (8 programs in 
all). 

Á SNAPSHOT — Instantly save and display up to 99 
text screens. Great for debugging, Help screens, 


Cables built-in 


(optional lengths available) 
Nothing else to buy 
Fingertip control 
Just flick your switch 


etc. 

. SHERLOCK — Find lost files. Give Sherlock a clue 
(eg phrase or fragment of file contents) and files 
will be located in all directories. 

** NEW! Memory Resident, Menu Driven ** 

. GRAFIX — Send graphics screen image to printer. 
You choose printout size. 

. FONTIX — Set printer fonts, tabs, margins, etc. 
Automatically produce paginated printouts and 
structured Basic listings. 


WIZARD Utilities 
P.O. Box 714 
Sudbury, MA 01776 


See your dealer 
or 
Call 1-800-874-1551 


TAB SALES CO. 


704 W. Michigan Ave. 
Pensacola, FL 32505 
P.O. Box 8098 Ph: 904-438-6507 


800-622-4070 
800-942-7317 in ILL. 
$3.00 ship & handling 
in Mass add 5% tax 
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(minus) sign keys on the numeric key- 
pad to move a highlight bar and then 
using CTRL-E to invoke the option. 

Using the second method above 
seemed to be a problem at first on the 
Tandy 1000. The +/- keys and the 
backslash (V) key generate different 
keyboard scan codes from other IBM 
compatibles. However, installing the 
KEYCNVRT.SYS driver in the CONFIG 
.SYS file solved this problem. To use 
these keys you must have the NUM LOCK 
key on. 


Pop-Up Alarm Clock 

The first module we'll discuss will be 
the alarm clock. Pop- Up Alarm allows 
you to do any of the following: 


d): View the: time of day. Whenever. 
‘you: ike 

2) Set alarm clock HANE: from the 
alarm clock: menu. 

3) Set alarm clock options. on. the 

"command line when you load: 
Alarm Clock or create a “setup” 
file: to load: preset: alarms and 

| options automatically, 
4) Time events with a ‘stopwatch. 
5) Set your computer to run pro- 


grams when you "re not there. 
im Feed the current. time bind date to 
jour, applications, 


The options include permene when 
to display the time and when to chime. 
You may display the time each minute, 
each hour, constantly or not at all. The 
chime may sound once each hour, 
chime each hour or never. When an 
alarm goes off, you may press S to 
“snooze” or R to simply reset it. These 
options may also be set as you load the 
alarm clock module. To do this you 
must include an option parameter with 
the normal POPALARM command. Op- 
tion parameters take the form of POPR- 
LARM option=x where option may be 1, 
location; d, display; b, bell; a, alarm; or 
f, feed. With alarm and feed you may 
also specify a message to display or a 
command string to send to the compu- 
ter. 

The most unique feature of the alarm 
clock functions is its ability to send 
command strings to the comuter at 
preset times. This differs from the alarm 
feature in that you are only allowed to 
set one "feed" time whereas you may set 
up to six "alarm" times, each with its 


own message to be displayed. The 
command string may contain DOS 
commands, program names or anything 
you wish. All special characters such as 
the backslash (\) and ENTER key must 
be preceeded with a backslash (\). On 
a Tandy 1000 the use of the backslash 
also requires the KEYCNVRT.SYS file to 
be loaded, however the NUM LOCK key 
need not be on as it must in order to use 
the */- keys on the keypad. The timed 
feed function of the alarm clock is a very 
powerful function indeed. 


Pop-Up Calendar 
The next module to discuss is the 
calendar. This module allows en to: 


d) Look at a’ i three-month calendi d 
display. : i 

2) Look ‘at a: SHE one- month 
calendar TIT 

3) Mark special events. 

4) Keep track of cyclic events. 

5) Save your important dates in a 
file. i H 

6) Get a date file. 

7) Print calendars. 

8) Stamp the date on another oppl 
cation.: 








PORTABLE COMPUTER MEMORY EXPANSION 
24K Expansion RAM 8K Expansion RAM 


For the Model 200 
$190. for two 


$99. each 


For the Model 100, M 10 & 8201 
$27. each 


$75. set of 3 


These modules are easily installable and feature the low power version CMOS 


static RAM. 


Illustrated step by step instructions with a memory test program 


listing included. Our aim is your satisfaction. There is a thirty day refund policy 
and a one year warranty. Phone and Mail orders are accepted and items are 
shipped promptly from stock. Call (714) 540-1174. 


M/C, VISA, Check or Money Order 


Shipping-Add $1.50 UPS Ground 
or $4.00 2nd Day Air. 
CA Residents add 696 Sales Tax 


American 
Cryptronics, Inc. 


1580 Corporate Dr., Suite 123 
Costa Mesa, CA92626 
Phone: (714) 540-1174 


Zi 
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The calendar function is loaded by 
typing POPDATE and is activated with 
ALT-D. A three-month display appears 
showing the current month, the pre- 
vious month and the following month. 
Using the cursor control keys, you may 
move forward or back through the 
months or through the years. You may 
view anywhere from 1900 to 2027. By 
using the F2 key, you will get a single- 
month display with the current date 
flashing. Up to two events per day will 
be shown where they have already been 
set. Pressing the M key will display the 
remainder of your messages if you have 
any. 

Onereally nice feature of the calendar 
function is its ability to accept one event 
followed by a list of dates to track that 
event on. This is useful for events that 
do not always occur on the same date, 
such as Thanksgiving. For events occur- 
ring on the same day year-to-year there 
is a "cyclic" function whereby you 
specify an event, the day on which it 
occurs and the cycle (such as weekly or 
annually) that it occurs. This function 
is great for birthdays and anniversaries. 

What if you have different people 
with different dates to remember? No 
problem! Using the "save" function you 
simply save your own dates in a file for 
later retrieval by the “get” function. A 
file named DATES.DAT is automati- 
cally loaded when you first load the 
calendar module but any file may be 
loaded after this. Using the calendar 
module you may also print a calendar 
or pass a date from the calendar to one 
of your other applications. 


Pop-Up Notepad 

The Pop-Up Notepad module is avail- 
able in an instant. In fact, the notepad 
is where I kept my notes for writing this 
review while I was working with the 
various modules to see what they could 
do. Believe me, this is the only way to 
go. As you're reviewing a package you 
can pull up your notes any time you 
wish to jot down something about a 
particular feature or problem. Pop-Up 
Notepad has: 









k ini 


To load the notepad, type ALT-N. A 
tall, narrow notepad-type window will 


så 
Hil 





appear on the screen with a menu bar 
to the right of it. 

The notepad allows you to enter text 
just as a word processor would. You can 
insert text and lines, delete text and 
lines, align paragraphs, store and re- 
trieve notepad files and browse your 
directories for notepad files. Since the 
features of the notepad are a very small 
subset of a full word processor, I will 
not elaborate any further on them. Let 
me just say that the features that are 
there are more than sufficient to jot 
down notes or make phone lists to use 
with Pop-Up Voice. 


Pop-Up Clipboard 

The clipboard is similar to the note- 
pad in many respects. It also is a mini 
word processor, however, the clipboard 
has a set of expanded block commands 
to assist in manipulating text. The 
clipboard takes up the full screen and 
in order to view the application under- 
neath, you must use the F3 key. The 
Clipboard enables the user to do the 
following: 


taAa titretti err Cierto 
MIE TEN HATT 


(53444777 
initi: 


processing. Features 3 and 4 are what 
make the clipboard the powerful tool it 
is. Blocks are handled by first marking 
the beginning and ending and then 
copying, moving or deleting them. To 
copy from the clipboard to an applica- 
tion, you first place the cursor where 
you wish to copy text. Next, invoke 
clipboard with ALT-B and mark the 
block of text you wish to copy using the 
F5 key to begin the block and the cursor 
keys to highlight the block. Finally, type 
ALT-F to feed the text to your applica- 
tion. You will be asked for an end-of- 
line character. Type the character of 
ALT-F for none and the block will be 
copied to your application. To reverse 
the process, you enter the clipboard and 
use F3 to view your application. Mark 
the block to copy using F5 to begin, the 
cursor keys to select and F6 to end the 
block. You will be placed back into the 








clipboard where you will see a flashing 
box. Place this box where you want to 
copy the text and type CTRL-I followed 
by any key to confirm copy or ESC to 
cancel. It's as simple as that. 

If your application cannot accept text 
as fast asthe clipboard sends it, you may 
adjust the feed speed when installing the 
clipboard by typing POPCLIP “rx where 
x is a digit from zero to nine, with zero 
being the fastest. Combining the clip- 
board with Pop-Up Anything allows 
you to copy text from one application 
to another. 


Pop-Up Calculator 

There are two calculators in the 
DeskSet package. The first is a simple 
four-function calculator with 10 memo- 
ries and percent calculations. The sec- 
ond is a powerful financial calculator 
which even has its own separate manual 
of 37 pages. Both calculators provide a 
pictorial paper tape record of all calcu- 
lations. This tape may be printed for a 
permanent record. Both also provide a 
help screen by using the F1 key. Pressing 
C clears the calculator while X clears 
only the current entry. 

The financial calculator provides the 
following functions in addition to the 
standard four functions, percents and 
memories: 


The financial calculator has five 
different modes for performing calcula- 


Typing CTRL-M toggles the different 
modes. CTRL-H brings up a large help 
screen which you may leave displayed 
as you perform calculations. This is a 
great help when you're dealing with as 
many variables as you have in finance 
and statistics. The 10 function keys are 
used as financial and statistical registers 
for values such as present value, future 
value, interest, payment, period, mean, 
sum of X, sum of Y and standard 
deviation. 
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The items that can be calculated with 
the financial calculator are so numerous 
I will only list a few. You can figure 
simple interest, compound interest, 
future value, effective interest rate, 
payment on annuity, annual percentage 
rate, amortization, depreciation, fore- 
casting, slope and intercept, variable 
analysis and much more. Any value 
from either calculator may be placed in 
an application using the "feed” com- 
mand. 


Pop-Up Voice 

Pop-Up Voice is used to autodial a 
number from your keyboard or from a 
phone list. You can: 





As was mentioned earlier, you must 
run TLCSETUP to customize the voice 
module. This lets you choose a serial 
port, three commonly called numbers, 
a PBX and long distance service 
number and tone dialing if you have it. 
Voice is displayed by ALT-V and will 
appear with your chosen numbers and 
any number brought forward from the 
cursor position when voice was in- 
voked. This feature lets you create a 
phone list using the notepad or some 
other database program, display your 
list and then Pop-Up Voice pulling 
forward any of the numbers in the list. 
After dialing you simply pick up the 
phone. Remember, the DeskSet Plus 
version also adds data communictions. 


Pop-Up DOS 

Pop-Up DOS gives you access to 
several DOS features while you are 
running another application. The fea- 
tures provided are: 





In addition to these features the DOS 
module allows you to: 





The first eight features above are 
relatively self-explanatory. The last two, 
however, require some explaining. If 
you choose the print option provided on 
the first menu, you are taken to a second 
menu having four additional choices for 
printing files. These choices are: 


The first option lets you suspend 
whatever you're doing and print a file. 
CTRL-S will start or stop the print. 
Option 2 simply prints whatever you 
type as you type it just as a typewriter 
does. The third choice allows you to 
send a form feed, line feed or choose any 
of six possible typefaces such as em- 
phasized or compressed. This comes in 
handy when the application you're 
running will not let you embed control 
codes in your document. The last selec- 
tion lets you send any control code to 
your printer. These codes are entered as 
a three-digit decimal number, each 
followed by an ESC character. 





Pop-Up Anything 

Naturally I saved the best for last. 
Somewhere in the beginning of the 
article, I mentioned something called 
Pop-Up Anything. Well, seeing is be- 
lieving, and, believe me, it's true. This 
module, which takes up 20K, actually 
lets you make a pop-up of many of your 
favorite applications. It states in the 
manual to check your programs before 
using them with Pop- Up Anything since 
some cannot be popped up and others 
will not let you access the Popany 
prompt. The two I tested with were 
Lotus 1-2-3 and WordStar and they 
seemed to work fine. 

Pop-Up Anything is loaded by typing 
POPRNY followed by any of several 
options. These options include a mem- 
ory allocation, changing the invocation 
key, a graphics option to allow use 
within a program using graphics and a 
"risky" option if memory is in short 
supply. This last option saves about 6K, 






however memory contents may not be 
as stable as you'd like. In order to obtain 
online help with this module you must 
have the Pop-Up Anything disk in the 
drive and type POPRNY ?-?. None of the 
other modules requires the disk in a 
drive. Memory requirements are deter- 
mined by the applications you plan to 
run as pop-ups. 

Pop-Up Anything will also run many 
of the standard DOS functions. This 
gives you the ability to temporarily 
leave a program to format an extra disk 
if you'd like and then return to exactly 
where you left off. If you're like me, 
you'll find this extremely useful. 

As mentioned earlier, using Pop- Up 
Anything in combination with the 
clipboard enables you to copy informa- 
tion from one application to another. 
For instance, this makes it quite easy to 
include spreadsheet data in a text doc- 
ument. 

Let me give an example of using this 
feature. Begin by loading your word 
processor and a document. Next invoke 
Pop-Up Anything with ALT-F10 to re- 
ceive the Popany prompt and load your 
word processor and a second document. 
Now you may work on the second or cut 
from it and paste to the first using the 
clipboard. To do this, invoke the clip- 
board with ALT-B and use F3 to view 
your document. Choose the block you 
want and copy it to the clipboard. Exit 
the word processor and receive the 
Popany prompt again. Type EXIT and 
you will be returned to your first doc- 
ument right where you were originally. 
Call up the clipboard again and reverse 
the process by copying from the clip- 
board to the document. It took longer 
for you to read this paragraph than it 
did for me to copy it from one file to 
another. 


Conclusion 

Pop-Up DeskSet has finally put my 
desk on the moon. It is an excellent buy 
and really does the job. If you have a 
computer on your desk, Pop-Up 
DeskSet is the thing for you. In com- 
parison with the other desktop tools I 
have seen, DeskSet rates with the best. 
The one feature I miss, though, is a Hex- 
to-binary-to-decimal conversion rou- 
tine on the calculator. I have to look out 
for all you programmers out there too, 
don't I? 


(Bellsoft, Inc., 2820 Northrup Way, Belle- 
vue, WA 98004, $69.95) 


— Larry Birkenfeld 
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Models lil 4 4D 4P 1000 
Computer Aided Drafting 


Save time and increase productivity 
Excellent system benefit / cost ratio 
Drawing sizes up to 24" x 36" 

Full size overlays 

Direct and auto zoom and pan 

Decimal and "customary" scaling systems 
Full inch and fractional grids 

Cursor snap to grid or intra-grid 

Variable cursor speed control 

Single key functions from keyboard 
Mnemonic function symbols easy to learn 
Single operating mode at all times 
On-line function summary, memory alert 
Accuracy up to 1/100 of an inch 

Digital (coordinate) input functions 

Block reduce enlarge 1% through 999996 
Block rotate 1 through 360 degrees 

Block mirror / rescale 

Merge, rotate, rescale drawings 

Save / load drawings to / from disk 

Cut out and save parts of drawings 

Text labels full upper / lower ASCII 

Text duplication saves memory / typing 
Left justified "typewriter" text option 
Precision plotter output 

Hardcopy reduce / enlarge 1% - 9999% 


1200 pam 
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Computer Aided Drafting systems y 


for 





architects, engineers, educators, MICRODEX 


manufacturers, builders, students idis 1212 North Sawtelle 





Tucson, Arizona 85716 
Phone (602) 326-3502 
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Software 





Offix: A File Cabinet 
on a Disk 


Offix is an interesting program that 
attempts to answer one of those "why 
can't they . . ." kind of questions we've 
all been asking since the advent of the 
personal computer. Many people have 
extensive amounts of simple data to 
organize; people who run small busi- 
nesses or large clubs often have to keep 
track of price lists, order information, 
credit information, suppliers', custo- 
mers' or members' addresses and sched- 
ules. Such information piles up end- 
lessly and must be filed, but also must 
be accessible. Such people need to get 
letters, messages or reports out, and 
they would benefit greatly if they could 
organize names, addresses and basic 
data, call these out of the computer 
easily and produce form letters and/or 
reports that drew on the data. 

The specific question Offix attempts 
to answer is, "Why can't someone come 
up with a simple and inexpensive filing 
program that will allow me to enter, 
manipulate and access data in some 
relatively direct fashion without my 
having to learn a programming lan- 
guage?” And for the most part, Offix's 
“user interface” will overcome the fear 
and trembling of all but the most ter- 
rified computerphobes. In fact, Offix 
seems, at first, like the answer to a 
prayer; and though the program has 
flaws, the first impression is substan- 
tially accurate. Offix promises to help 
the small office or large social organi- 
zation do all of the above, and it largely 
delivers; be aware, however, that it will 
do little more than it promises. Offix 
touts itself as a data manager, not a 
database. Practically speaking, if your 
needs grow, or if you want a program 
to perform beyond simple data manage- 
ment, you will want a more capable 
program. 

Installation (including printer) is 
straightforward and trouble-free since 
Offix comes preset for the Tandy ma- 
chines. Upon booting the program — a 
procedure that Offix's copy protection 
complicates annoyingly — the neophyte 
will be presented with a several-screen 
explanation of the program, which can 
be turned off when confidence accu- 
mulates. Following this will be a screen 


that resembles a pair of three-drawer 
file cabinets, one of which is highlight- 
ed. One of the drawers is labeled, 
“Miscellaneous” and contains several 
Offix information files, including one 
that prescribes a simple way to set 
screen colors if you have a color mon- 
itor. 

Offix comes with a short, soft-cover 
manual, a pair of duplicate, copy- 
protected program disks, a page of 
errata telling you to ignore some of the 
manual's instructions, and Tandy's 
ubiquitous software-registration form. 
The manual is typical Tandy documen- 
tation, i.e., not very well done, but the 
program offers excellent, on-screen 
tutorials, clear pop-up menus, and 
copious, context-sensitive help screens. 
These latter two are called by using 
function keys: F1 calls the simple-to- 
comprehend menus, and F2 calls the 
clearly written help screens. Any menu 
or help screen that comes up will relate 
to wherever you are in the program 
when you ask for help. In addition to 
the tutorials, there are calm-sounding 
and helpful error messages. 


“Offix makes it 

easy to generate 

simple form letters 

and columnar reports" 
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You operate Offix by pressing func- 
tion keys or specific (and with only one 
exception, logically mnemonic) al- 
phabet keys. For instance, you type ‘O’ 
at the file cabinet screen to Open a 
highlighted drawer; you Rename the 
drawer with *R'. You enter the word 
processor with ‘W’. With the drawer 
open, you will see an alphabetical list of 
the first eight “folders” within the 
drawer. You then highlight the name of 
the folder you wish to (T)ake out of the 
drawer and then (O)pen the folder. You 
will next be presented with a list of the 
first 10 forms (in alphabetical order) 
within that folder, one of which you can 
select to scan or to change its contents. 
You can take out two folders at once 
from the same or different drawers. 
After you have finished with a folder, 
you (P)ut it back in the same or another 
drawer, (C)lose the drawer, and either 
proceed or exit. For each folder, you 
will design one master form that deter- 
mines the format of each filled-in form 
in the folder. A folder will hold as many 
forms or documents as disk space per- 
mits. Each working disk can organize 


six *drawers," each drawer can contain 
100 “folders,” and each folder can hold 
any number of forms, determined only 
by space available on the disk. 

Forms and documents are (M)ade 
using the program's built-in word pro- 
cessor. (Note: Offix generates and reads 
ASCII files, so you can export Offix 
files or import ASCII files generated by 
other programs.) Though not full- 
featured — it lacks footnotes, super/ 
subscript, automatic centering of text, 
footers, and headers, although you can 
assign a "page title" to each page 
through the print-layout screen — the 
Offix word processor is sufficient for 
most business correspondence. (Note: 
Offix documents are created in memory 
and so can be quite long; also, the 
program seems to take advantage of all 
available RAM. When I used the-F7 key 
to see how much room I had left, a 
prompt informed me that on my 384K 
Tandy 2000 I still had 173,000 “charac- 
ters available" in that particular docu- 
ment. That's about 100 double-spaced 
pages. But the complexity of long 
business reports would eventually drive 
you to a more-capable word processor.) 

Nearly as simple to use as the rest of 
the program, the word processor will 
underline and boldface (although not 
on screen), highlight and move/copy/ 
delete lines/ blocks of text, switch from 
insert to type-over mode, insert/ delete 
blank lines, and reformat the whole 
document (see below) or individual 
paragraphs. Cursor keys, PG UP, PG DN, 
HOME, END, DEL, and BACKSPACE all 
work logically, and you can use func- 
tion keys to move to the beginning or 
end of a line. Offix is not a what-you- 
see-is-what-you-get word processor, 
although margin settings will be re- 
flected on screen. 

For printing, you set margins and 
such on a page-layout screen that makes 
the document formatting process de- 
lightfully easy. ALT-P calls up a screen 
that resembles typing paper. At various 
locations on the screen, corresponding 
to their positions on the final printed 
version, are all the various settings: 
margins (left, right, top, bottom), page 
title, page numbering, page length, 
spacing (up to triple spacing). You move 
the cursor to the appropriate area and 
provide the program with the numbers 
you want. You can modify settings 
during a writing or editing session via 
ALT-L. After formatting, F3 brings up a 
Print Destination Menu that gives you 
the choice of printing to screen (so you 
can see better what the final output will 
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be like), to disk, or to one of the defined 
Tandy printers. 

Designing an Offix form is easy (a 
form, however, canot be longer than 
Offix's 22-line screen). You type ‘M’ at 
the Open Folder menu and Offix puts 
you directly into the word processor; 
you use this to type "labels" — data 
categories — followed by blank lines 
(which actually function as a kind of 
window) to create a form that is similar 
in appearance to a paper form. If a 
folder already contains a master form, 
you will be asked if you wish to modify 
it; doing so will change all the forms 
already in the folder. Interestingly, if 
you erase a label on a master form, any 
information you have previously en- 
tered for that label will stay in the form, 
but you won't see it. You can put the 
label back in at a later time and find 
your information on display once again. 
Regardless of the length of the blank 
line you initially enter on the master 
form (anywhere from 1-50 blanks), you 
can actually enter up to 250 characters 
of information on any one line (except 
the first, which can only be 23), then 
scroll along the line reading your infor- 
mation. You can also enter unlabeled 
blanks. 

Typing 'S' at the Open Folder screen 
calls up the Search function, with which 
you can locate individual forms — for 
viewing/ modifying or merging into 
form letters or reports — that match 
selected criteria. You can select all 
forms, request exact matches, or use 
asterisks and question marks as wild- 
card indicators. You can search for 
numeric matches using equal, greater- 
than, and less-than symbols (decimal 
numbers and/or alphabetic characters 
in the searched entries are ignored). You 
can also use negation: a tilde (-) tells the 
program to find entries that do not 
begin with a certain character. 

Offix makes it easy to generate simple 
form letters and columnar reports, 
though you are limited to drawing 
information from within an individual 
folder. Though the manual is particu- 
larly confusing here, the on-screen 
tutorials and help will gently guide you 
through both of these processes. Essen- 
tially, all you need do is type into your 
letter the labels you wish to draw from, 
inform the program of search criteria, 
and print. It is nearly as easy as it 
sounds. Generating a report involves a 
few more steps — defining column titles 
and setting column widths — but is also 
extremely easy. In reports, Offix will 
usually sort alphabetically by the first 


column, but you can instruct it other- 
wise just by typing an exclamation point 
in front ofthe chosen column title. Offix 
will also total numeric columns if you 
place a plus sign after the column title. 
Both form letters and columnar reports 
can be printed to screen so that you may 
judge the output before you commit 
hard copy. 

There are several problems with 
Offix. In the words of the RSCC cat- 
alog, Offix "mirrors the familiar office 
environment." And “mirrors” is, unfor- 
tunately, exactly the right word. The 
program so slavishly imitates the office 
environment, so thoroughly insititutes 
the file-cabinet metaphor, that it makes 
it awfully simple to reproduce one of the 
worst faults of that system: It is far too 
easy, if you are careless, to “lose” a file 
by misfiling it, and one must then search 
for it exactly the same way one would 
search for misfiled paper — folder by 
folder. A revision of the program would 
do well to include something like a 
"tree" function to outline the organiza- 
tion of the “cabinets.” 

The user is several times advised to 
back up all work, and the warnings are 
intense in tone. Backing up business 
data is, of course, crucial, so much so 
that one wonders why there is no proce- 
dure for performing this routine chore 
from within the program. Instead, one 
must do backups through DOS. And in 
addition to backing up your Offix data 
disk, you'll need to back up the Roo 
t.ofx file located on your working 
program disk (see below about working 
program disks). Root.ofx is the file 
that keeps track of the organization of 
your cabinets and folders, i.e., which 
folder in which drawer in which cabinet 
on which disk can be found the docu- 
ment you want. A wipe-out of this file 
without a backup would be catastroph- 
ic. It's surprising that a progrm that is 
otherwise so helpful is so unhelpful 
here. 


Re: working program disks 

Offix is copy-protected; the program 
uses a scheme in which a garbage sector 
is deliberately hidden on the program 
disk; when booting, the program 
searches for this sector and either finds 
it or scuttles the boot. Therefore, you 
must boot the program with the original 
disk. But because Offix is intended to 
run out of the box on the 1000, 1200, 
2000 and 3000, the program is provided 
on a 360K-formatted disk, on which 
there is no room for DOS. This essen- 
tially means that you will need to boot 


the system with DOS, boot the program 
with the original or backup distribution 
disk, then run the program with the 
working disk that you can make by 
transferring all the files except the weird 
one. If you make a working disk in 
Tandy 2000 format, there will, of 
course, be room for DOS, but the 
program will not boot because of the 
lack of the garbage sector. The copy 
protection also causes annoyance when 
exiting because the program requests a 
copy of Command.com. To spare your- 
self this annoyance, you can copy just 
Command.com onto your working pro- 
gram disk. (Note: This will not make a 
bootable system disk. It will only save 
you the trouble of finding a system disk 
so you can exit.) 


Miscellaneous grumblings 

Once you have proceeded "down" a 
list of folder contents, it is sometimes 
difficult to go back "up." Frequently, 
you will have to use the HOME key to 
return to the top of the list before you 
can go back down. This can be ex- 
tremely frustrating if you are near the 
end of a long list and need to go back 
up just a few entries and find you must 
go to the top just to get back down to 
the bottom. 

When I reformatted a letter with the 
cursor at the top, the program reformat- 
ted the address block so that it all came 
out on one line. 

When I booted Offix after a session 
using Videotex Plus, that program's 
alternate-function-key settings re- 
mained in memory, so that when I 
accidentally typed ALT Fi, my MCI 
Mail number popped into my docu- 
ment. In fact, all 12 of my Videotex Plus 
presets were still in memory. It appears 
that Offix doesn't completely clear 
memory when it boots. Since this works 
so well, Offix upgrades should defi- 
nitely include the ability to use ALT/ 
function-key settings to record fre- 
quently used phrases or numbers. This 
would enhance the program's useful- 
ness. 

A section of the manual informs you 
that you can write BASIC routines that 
will act upon the ASCII files that Offix 
generates. The manual then tells you 
that how much you can get out of these 
routines depends on your ability as a 
programmer. But it seems reasonable to 
assume that a user who learned to write 
BASIC routines complex enough to go 
beyond Offix's limits would not any 
longer need Offix. 

Within the list of printer definitions, 
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although the DWII is listed, the DWIIB 
is not, and in fact a DWIIB would not 
operate on the DWII setting; it did 
operate flawlessly from generic DWP 
10-pitch and DWP 12-pitch settings. 
And the errata page reports that the 
printer table for DMP Standard 10 and 
12 are reversed.) 


Most of what Offix does, it does 
relatively painlessly — so painlessly, in 
fact, that after a while, user-friendliness 
becomes user-obsequiousness. All that 
friendliness begins to get in the way. 
Also, you will occasionally get caught 
up in a surprising carom across the 
border into deepest user-hostility, as 
when you discover the extremely arcane 
and confusing section of the manual 
that describes how to enter numeric- 
comparison data for searches. But for 
the most part, Offix's *user interface" 
will overcome the fear and trembling of 
all but the most terrified computer- 
phobes. 

Offix, as it comes out of the box, is 
a capable, if limited, filing program. 
What Offix does do, it does nicely. It is 
easy to learn and easy to remember. It 
will organize and track a virtually 
unlimited amount of simple data and 


MSDOS UTILITIES 
Tandy 1000, 1200, 2000, 3000 


IBM PC/XT/AT 


create simple form letters, mailing lists 
and reports with relative ease. Its word 
processor, though a bit clunky, is easy 
to use and capable of generating simple 
business documents. As your needs 
grow in complexity, you will quickly 
outgrow Offix. But it would not be fair 
to criticize Offix for what it is not, i.e., 
a full-scale database for the generation 


of complex statistical analyses. Judging 
Offix in terms of what it is — a capable 
data manager — earns the program 
generally high marks. 


(Tandy Corp., One Tandy Center, Fort 
Worth, TX 76102, $99.95) 


— Gary Karasik 
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Power Text: Word 
Processing 
Enhancement 


PowerText is aptly named, it adds 
powerful features and options to your 
word processing capabilities. Word 
processors offer a variety of features for 
formatting text which varies from one 
word processor to another. Generally, 
the more costly word processors offer 
more features than the less expensive 
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ones. Some are more difficult to use 
than others, or I could say, less user 
friendly. Usually the more features that 
are offered, the more difficult it is to 
learn, or at least there is more to learn. 

Regardless of how many features are 
offered by the word processor, it doesn’t 
take us long to wish for more. That’s 
where PowerText comes in; it adds 
many features to even the simplest of 
word processors. It takes simple com- 
mands to produce what would other- 
wise be a complex typing job. Power- 
Text is ahead of the field in providing 
powerful formatting features for word 
processing outputs. 

PowerText offers options which in- 
clude left- and right-justified text, 
automatic title pages and tables of 
contents for papers, font variations and 
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Transfer files directly to/from disk 

Use XMODEM for error correction 

VT100 terminal emulation 

Autodial and logon with any autodial modem 


Now available in Radio Shack Stores! Ask for 


Omniterm Plus 
EOS Cat.# 900-0123 
$95.00 
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Omniterm is a product of Lindbergh Systems, Inc. 
95 Nagog Hill Road, Acton, Ma 01720 
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automatically generated outlines with 
proper numbering and indentation. It 
will also give you multiple columns of 
text, as in newspapers, which can be 
synchronized from one column to the 
next if you so desire, complex headers 
and footers, footnote features, screen- 
play script with proper formats, com- 
plex pitch, line spacing and margin 
choices, calendars/schedules, form 
letters and more. 

PowerText uses the text file created 
by your word processor with embedded 
Power Text commands to produce com- 
plex documents. With the large variety 
of software available today, I can't say 
that PowerText has features that aren't 
found in any other word processor. But, 
it is safe to say that most word proces- 
sors, especially the relatively simple and 
less expensive word processors that 
most of us use at home, don't offer the 
wide combination and variety of fea- 
tures found in PowerText. You would 
be hard pressed to find even an expen- 
sive word processor for business use 
which offers the features found in 
Power Text. And get this: The price is 
only $49.95 plus $5 shipping. 

In fact, PowerText is designed to 
import files from a variety of word 


processors commonly found in offices 
for business use. More specifically, 
Power Text is setup to take text files 
from pfs:write, Writing Assistant, 
WordStar, Volkswriter, Multimate, 
Wordvision and any ASCII editor. 

PowerText is designed to handle the 
above six specific word processors 
directly, or any other word processor 
that uses ASCII text files. That should 
cover the ball park pretty well. Almost 
any simple text editor or word proces- 
sor can be used to prepare an ASCII 
text file for use by Power Text. 

Power Text comes with two disks and 
nearly 300 pages of documentation. It 
runs on IBM PC/XT/AT computers 
and the compatibles with 192K and 
either two disk drives or hard disk (not 
copy protected). My Tandy 1000 with 
256K worked fine. It's simple enough to 
use if you follow the directions. I tried 
to jump right in after only half glancing 
at the documentation and didn't pro- 
duce much. When I actually took a 
good look at the documentation and the 
samples provided, everything suddenly 
became much simpler. 

PowerText comes with 16 sample 
files to show off the large variety of 
features available and how to use them. 


New Star Gemini SG-10 Model printer. 
120 cps w/true descenders, proportional 
spacing. New model for 1985. 


Considering that it comes with the 
samples, quality documentation and 
on-screen prompts/instructions, it 
shouldn't be very difficult to get started. 
Part of the documentation steps you 
through a procedure to list the various 
sample text files straight to the printer 
with the DOS copy command COPY 
SAMP2 LPT1: and then to print the same 
file using PowerText. The difference in 
the two printouts is generally very 
dynamic. It is really amazing how little 
needs to be placed into the text file in 
the way of embedded commands to 
produce such nice outputs. 

The typical routine of building a 
working disk is the first step in getting 
started. This is well covered in the 
documentation. Part of this is selecting 
a printer driver from among the variety 
of options provided. These drivers can 
be modified, or a new driver can be built 
by using the Install feature and follow- 
ing the documentation instructions that 
go along with the menu prompts. 

Building a printer driver requires the 
entry of decimal ASCII codes used by 
your printer. For example, at the 
prompt that asks for codes to turn on 
the superscript feature of your printer, 
I enter "27 14," which represents the 
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commands for my particular printer. 
These commands are normally listed in 
the back of the printer manual. Building 
your own custom printer driver takes 
you through quite a series of such 
prompts; and, based on my experience, 
this may take a few tries to get it right. 
Fortunately for those who feel building 
a printer driver is too technical, there is 
a default driver. In addition, one of the 
specific drivers provided with the soft- 
ware should come fairly close to the 
features of most printers. If all else fails, 
a call to the software developer should 
solve any problems here. 

In addition to the text file with em- 
bedded Power Text commands, a style 
or format file to define the type of 
document you are producing is neces- 
sary. Building a style file could take 
some effort if you were to attempt it 
from scratch using just the documenta- 
tion as a guideline. However, this prob- 
lem is readily solved by the software, 
which comes with a variety of style files 
used to produce the sample documents 
already mentioned. It's a relatively 
simple job to select one of the style files 
provided and to make a few modifica- 
tions to it for your specific application. 
In many cases, no modification would 
even be necessary. The style file is 
changed, listed or created by use of your 
word processor. The first embedded 
command in your text file refers to the 
particular style file you want to use. 

Most of the embedded commands 
start with a slash (/) as the first non- 
blank character of the line. In this way, 
the slash can be used for normal pur- 
poses, such as in the date 1/15/86, 
without being confused with an em- 
bedded command. A few of the em- 
bedded commands use the caret (^) to 
invoke a PowerText feature. Here are 
a few examples of embedded com- 













"m sertenplays ` 


A quick review of just some of the 
samples that come with Power Text will 
provide some insight into its wide range 
of features. 

Sample 1 uses embedded commands 
to turn a one-page text file into a four- 
page finished report with a title page, a 
table of contents and two pages of text 
with centered and unlined headings. 

Sample 3 expands on Sample 1 with 
two additional embedded commands 
that add centered blocks of quoted text 
in a different type style and add foot- 
notes to each page. 

Sample 5 uses the report style file and 
the outline command to build a well- 
formed outline, including a boxed 
paragraph of special information. Here 
is a miniature example giving the text 
file input into Power Text: 


YI The gd dd Vig: | 
"2: Prior to 1300. 
















Sample 6 varies the outline by using 
*bullets" or asterisks (*) instead of the 
standard numbering and lettering of the 
outline items. 

Sample 7 takes a simple text file 
which has some paragraphs starting 
with “/1” and others starting with “/2” 
to build a document using the column 
command. The end result is a document 
with matched columns of text inter- 
mixed with full-width text. Some col- 
umns are divided by a vertical line while 
others are not. Selected areas of the 
document are boxed. By matched co- 
lumns, I refer to information in one 
column which starts on the same line as 
matching information in the next col- 
umn, regardless of the fact that the 
length of the entries varies from one 
column to the next. I might point out 
that none of the alignment was handled 
by the typist. The alignment and arrang- 
ing of the text was all handled by 
Power Text. 

Sample 8 takes a page of normal text 
with six embedded commands to pro- 
duce a one-page newsletter type of 
document. The title is centered and 
underlined, the opening paragraph is 
the full width of the page, and the rest 
is divided into two columns. The two 
columns include a subject title centered 
within one column and several para- 
graphs of text, right-justified within the 
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columns. I have had some experience 
preparing a similar newsletter type of 
format with a typewriter. Believe me, 
this feature will be appreciated by 
anyone preparing a newsletter. 

Sample 9 produces a letter with 
automatic page breaking, centered 
heading information on the first page, 
continuation headings on subsequent 
pages, a footnote and centered closing. 
By referring to automatic page break- 
ing, I don't just mean so many blank 
lines left at the bottom of each page. 
PowerText will fit the letter onto one 
page if it can, even if the footer space 
requirement has to be violated. If the 
letter will not all fit on one page, it will 
arrange the letter so that it looks nice. 
There will not be one line moved to the 
last page all by itself. 

Sample 11 uses the schedule com- 
mand to build a calendar style schedule. 
There is a column for each day of the 
week with boxed-in areas under the 
column headings for the various hours 
of the workday, including scheduled 
appointments. 

Sample 13 is for merging other files 
into a book with each separate file 
becoming a chapter. 


Sample 15 uses the play style. “Yg” is 
used to designate the beginning of the 
girl's statements and “\b” is used to 
designate the beginning of the boy's 
statements to produce a very nicely laid 
out document with script. 

Sample 16 uses a name and address 
file (Sample 17) to produce form letters 
with the name, address, etc., selected 
from the the address file. Embedded 
commands in the letter cause the first 
name of the related record in the name 
and address file to be positioned at 
various places within the text of the 
letter. 

In summary, Power Text offers some 
very powerful features at a very low 
cost. It enhances even the simplest of 
word processors with features that 
would normally be available in software 
that is priced out of reach for most 
home computer use. I recommend Pow- 
er Text for students, for anyone writing 
books, plays or other large documents, 
for newsletter editors, for secretaries 
who do more than an occasional letter, 
for anyone doing quantities of form 
letters and for anyone interested in 
adding power to their word processing 
capabilities. 


(Beaman Porter, Inc., 417 Halstead Ave., 
Harrison, NY 10528, (914)835-3010, $49.95 
plus $5 shipping, $10 outside U.S.) 


— Robert Jensen 
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Diagram Master 
Eliminates the 
Tedium of Drawing 
Charts 


DecisionResources, Inc., of West- 
port, Connecticut, has released a new 
program, Diagram Master, for creating 
simple drawings, organization charts 
and gantt schedules. If your job involves 
creating such materials, then you might 
want to consider using Diagram Mas- 
ter. It is another in their “Master” series 
that includes Chart Master and Sign 
Master. 

Diagram Master combines some 
unique features that make it an interest- 
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ing, but not always impressive, software 
package. And while it may meet your 
needs, it may not meet them on time, as 
I found it to be slow and cumbersome 
to use. 

Diagram Master, geared toward busi- 
ness managers and organizations, pro- 
vides you with the power to create and 
edit business diagrams. You may use it 
to create flow charts for software, 
processes and organizations. Also you 
may create organization charts to graph- 
ically show “who is reporting to whom.” 
Plus, Diagram Master gives you the 
ability to set up gantt charts for illus- 
trating schedules of projects and activ- 
ities. 

Diagram Master comes with 
diskettes, a thorough loose leaf manual 
and a free subscription to their newslet- 





“Using Diagram 
Master is very simple 
and almost entirely 
menu driven.” 





ter. In addition, DecisionResources 
provides free technical support on their 
technical hotline at (203) 222-1974. I 
had occasion to use this hotline and they 
were quick, courteous and helpful. Let’s 
take a look at what is provided on the 
diskettes and in the manual. 

Of the five diskettes provided, only 
one is copy protected and contains the 
main program of Diagram Master. If 
you own a hard disk, though, you may 
install the copy protected software on 
your hard drive along with the rest of 
the support files on the other diskettes. 
The process is simple, well defined in the 
manual and includes a way to copy 
protect your hard drive copy, so that 
inserting the main program disk is 
eliminated. Otherwise the original main 
program disk must be in Drive A in 
order for the program to run. 

The other four diskettes contain 
support files for Diagram Master in- 
cluding a diskette of already completed 
drawings and charts called the Library 
Disk. The other three diskettes contain 
Drawing Board, Gantt Chart, and 
Organization Chart files, including 
samples on each disk respectively. Dur- 
ing operation of Diagram Master, you 
are required to insert these disks at 
various prompts in order to perform 
certain tasks. I highly recommend a 


hard drive for efficient use of Diagram 
Master. 

The minimum system requirements 
for Diagram Master are a PC or PC 
compatible, two floppy drives or hard 
disk, aminimum memory configuration 
of 320K (384K for printers and Polaroid 
Palette) and a video display (color or 
non-IBM monochrome) with a graphics 
adapter. 

The hardware that Diagram Master 
supports is one of the most impressive 
features of this software. It not only 
supports most of the best selling print- 
ers on the market, but, also supports 
many of the best selling plotters and the 
Polaroid Palette. This allows those users 
with plotters to get impressive hardcopy 
and to get slides for large professional 
presentations or 3.25 by 4.25-inch color 
prints using the Palette. Diagram Mas- 
ter supports a light pen as an alternate 
input device. I don’t own one and was 
unable to check this feature; however, 
the manual covers the set-up and cali- 
bration of your light pen. 

Using Diagram Master is very simple 
and almost entirely menu driven. When 
you start up, you are prompted to 
answer a series of questions concerning 
the system and peripherals you will be 
using. You may easily change these 
settings later if your system changes, 
and once you finish this installation you 
are greeted with the opening menu of 
Diagram Master. 

The main section of Diagram Master 
is called Drawing Board, and provides 
you with the tools to create simple 
drawings out of predefined shapes, 
lines, various type styles and hatch 
styles. The process is almost entirely 
menu driven and requires that you only 
answer prompts to achieve the tasks at 
hand. In addition, you may edit and add 
to organization and gantt charts using 
the Drawing Board section of Diagram 
Master. 

The two other main features of Dia- 
gram Master are Organization Charts 
and Gantt Charts. Each of these sec- 
tions also operates using menus and 
simple prompts, except at this point 
data is input concerning your specific 
chart. 

For organization charts, you enter 
data on how many levels, boxes, layout 
style and text type you will be using and 
the specific data to appear in the boxes 
of your chart. You may create new 
charts or edit existing charts. You can 
also globally change the text size on 
your chart as well as print, plot, save 
and retrieve charts from a diskette. In 


Back Issue . 
| Availability 

Back copies of many issues: 

of PCM are still available. 

All back issues sell for the 
single issue cover price. In 
addition, there is a $2 charge . 

for the first issue plus 50 . 
"cents for each additional 
issue shipped in the U.S. | 
When. possible, issues are | 
shipped UPS. The postage 
cost in Canada and Mexico 
is $3 for the first issue and 
"$T for each additional issue. 
VISA, MasterCard and . 
American Express accepted. 
Kentucky résidents please 


add 5 percent state sales tax. 


We do not bill and no COD 
orders accepted. 
We suggest you order 
back issues you want now 
while supplies last. HH 
To order, just fill out the 


"form on the next page and: 


mail it with your payment: 
(01775 


(01001 oa aht IRI 
| The Falsoft Building 
Prospect, KY 40059 





February 1986 PCM 121 


R. a. 


C Please send me the following back 
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this section of the manual there are 
examples of the different types of charts 
that can be created and simple lessons 
on creating a chart. 

The third major section of Diagram 
Master, Gantt Charts, provides the 
menus and prompts for creating and 
editing these documents. What is a 
gantt chart? It is a time based diagram 
that shows the start and end points of 
different tasks and activities. These 
charts are used to keep track of projects, 
create schedules and plan time tables. 

To create a gantt chart, you input 
data covering the time divisions to be 
used, activities, bar types, patterns, 
color and the format; layered or seg- 
mented. Once you've finished your 
chart, you may elect to view it on full 
screen, print/plot it or send it to the 
palette. In addition, you may edit the 
chart in the drawing board section. 

An additional feature of Diagram 
Master allows you to change text fonts 
and sizes for your charts. There are 
eight fonts provided in 16 different sizes 
(points) from which to choose. The 
styles provided are Standard, Bold 
Standard, Roman, Bold Roman, 
Script, Swiss, Bold Swiss and Symbols. 
The Symbols font is actually not stand- 
ard characters but are various pre- 
drawn graphics that can be inserted in 
your charts and drawings with a single 
keystroke. 

A plastic-laminated keyboard guide, 
that comes with Diagram Master, gives 
you reference to all the available sym- 
bols and their representative keys. The 
symbols include some of the interna- 
tional symbols found on signs, along 
with symbols of an airplane, truck, 
computer, TV, happy face, sad face, 
clock, telephone, bell, christmas tree, 
American flag and various charting 
symbols like arrows, circles, boxes and 
math symbols. 

In addition to the symbol font, you 
may use any existing drawing from your 
library disk as a symbol in another 
drawing. This allows you to create your 
own drawings as symbols and then 
place them in other drawings repeat- 
edly. This makes Diagram Master a very 
powerful symbol editor, too. 

Is Diagram Master for you? Will it 
meet your needs? Look very carefully at 
this package before you buy. I found it 
to be full of features that can be useful, 
but I also found some problems that 
may prevent Diagram Master from 
being the end-all software for your 
charting needs. 

While Diagram Master supports 


many output devices, the method used 
to create your drawings and charts is 
less than intuitive, and the draw and 
redraw times are very slow. And while 
the redraw times may be faster on 
machines with faster clock speeds, I 
don't see any way around the cumber- 
some drawing procedures and multi- 
keystroke menu entries. 

When making a menu selection, you 
have the option of selecting the item two 
different ways. Diagram Master high- 
lights menu selections with a moving 
highlight bar. You may move this bar 
using the arrow keys and then hit ENTER 
to make that selection. This works well, 
but requires many keystrokes to get 
from the top entry to the bottom entry. 
In order to avoid this, DecisionResour- 
ces has placed a number beside each 
menu item. By selecting any number 
that corresponds with the selection you 
wish to make, that selection is then 
highlighted. This saves keystrokes, but 
still requires that you press ENTER to 
finish making that selection. It would be 
much faster if the authors had allowed 
you to make a single keystroke of that 
number to get immediate action on your 
selection. 

I must point out that while the above 
is somewhat inconvenient, Diagram 
Master does have a real time-saving 
feature built into the menu selection 
process. As you are greeted with each 
subsequent menu, the most logical next 
selection is already highlighted. This 
speeds selection making and also helps 
you find your way through the many 
menus without referring to the manual. 
For example, after creating a drawing 
you will return to the main menu with 
the save-feature highlighted. This is a 
very nice feature of Diagram Master 
and speeds the process considerably. 

My major criticism of Diagram Mas- 
ter involves the draw and redraw time. 
To load and then draw an existing 
diagram or chart is very time consum- 
ing. And, the more complicated the 
drawing, the longer it takes to see 
results. This is due to Diagram Master 
handling the drawing files by using 
vector graphics and re-creating the 
drawing based on data rather than on 
pixel settings. So, if you have lots of 
drawings with which to work, this can 
be a real detriment to getting results 
quickly. By the way, often vector graph- 
ic output speed can be increased by 
equipping your system with an 8087 
numeric co-processor. This is not the 
case with Diagram Master. 

One final major criticism I have with 











Diagram Master involves the method 
with which you draw on screen. You are 
given a work space in which to work 
along with menus on the side to help 
make your selection. While this is 
convenient, it requires that you draw 
only in high resolution mode without 
color. You must keep track of your 
colors mentally. To see your drawing in 
full color, you must go to the preview/ 
plot menu and preview your drawing on 
screen. This, in turn, involves once 
again the slow redraw time. 

Other minor problems you should 
know about involve the monitor color 
selection, which is limited to pre- 
defined palettes of which you may only 
change the background color. In addi- 
tion, you may only have six reporting 
levels on an organization chart. If your 
organization has more levels, you will 
need to create more charts. Limitations 
for creating gantt charts are less severe. 
You may have up to 25 activities, with 
a maximum of 24 major time divisions 
and 104 minor time divisions. 

In summary, Diagram Master packs 
some very useful features into one 
package and may provide you with the 
tools you need to create drawings and 
charts for your company or organiza- 
tion. The hardware support is impres- 
sive. The manual is thorough and has 
many examples and lessons to help you 
get a grasp of all of Diagram Master's 
features. In addition, Diagram Master 
can be used in tandem with Decision- 
Resources other packages, Chart- 
Master and Sign- Master. 

If you aren't in a hurry and don't 
mind the restrictions I’ve addressed, 
then give Diagram Master your consid- 
eration and see if it will meet your needs. 
Creating charts can be a tedious task, 
but with Diagram Master much of the 
tedium is eliminated. 


(DecisionResources, 25 Sylvan Road South, 
Westport, CT 06880, (203) 222-1974, $345) 


— Bobby Ballard 


Software 2000 


Gramarcy Enlivens 
Proficiency 


The ultimate learning tool is one that 
is fun to play, and what more fulfilling 
benefit to receive from playing a game 
than to learn. Gramarcy is just such. It 


HOWARD 


PAYROL/BAS™ stawe urron 


Professional looking 

Eliminates math 
errors 

No tables to look up 

Saves valuable time 

Written in non 
protected BASIC 

Custom code for 
each state 


* Prints the check 


and commission 
40 page manual 


Automatically Calculate State Income Tax 


for 49.95 


e LA 4995 e NE 4995 
e ME 4995 e NV 000 
* MD4995 eNH 000 
e MA4995 e NJ 4995 
* MI 4995 e NM49 95 
e MN4995 e NY 4995 
* MS 49.95 eNC4995 
e MO4995 e ND 49 95 
e MT 4995 e OH4995 


* AL 49 95 
*AK 000 
e AZ 4995 e HI 4995 
e AR 4995 * ID 4995 
*CA4995 ell 4995 
e CO4995 IN 4995 
CT 000 e*.A 4995 
* DE 4995 e KS 4995 
* DC 49.95 e KY 4995 


«FL 000 
* GA 49 95 


WITH 


PAYROL/BAS™ | 
YOU'LL ALSO WANT | 


941 PROGRAM 

gives individual summaries 
and totals of check informa 
tion to prepare 941 and state 
unemployment forms 


$29.95 


W-2 PROGRAM | 
prints Out year end W-25s | 


quantity 


$29.95 








312-278-1440 


is a computer program that plays the 
“word game” that appears in many daily 
newspapers. 

Gramarcy, while being incredibly 
easy to play, is guaranteed to provide 
hours of challenging excitment. The 
main menu displays the three options 
provided: Play the game, analyze a 
word or modify the data bank. 

After reading a simple set of rules, the 
computer will then ask the length of 
word you wish to play, ranging from 


* OK 49 95 
* OR 49 95 
* PA 49 95 
* PR 49 95 
* RI 4995 
* SC 49 95 
*SD 000 
* TN 000 
TX 000 evi 


description 
PAYROL/BAS'* 


W-2 program 


JP A Sepe siet 


Handles up to 500 employees, & deductions. 4 pay periods 
Automatically calculates FED FICA. No tables to enter 

Automatically calculates 5 individual deductions either straight or 
percentage & misc. ded 


Stores all of the above data to print 5 reports including check summary 
employee listing. ledger summary. Federal withholding deposits & totals 
Handles weekly, bi-weekly, semi-monthly and monthly 

* Handles hourly. salary. vacation, overtime. doubletime, sicktime, bonus, 


PAYROL/BAS™ ONLY 


$149.95 


Plus $2 Shipping 


49 95 
evT 4995 
eVA 4995 
* WA 0.00 
e WV 4995 
ewi 4995 
ewy 0 00 
* NYC 4995 
49 95 


* UT 


Minimum system 
requirements 
MS-DOS 
2 double sided drives 
for the TANDY 
1000. 1200, or 2000 


RETURN TO HOWARD MEDICAL COMPUTERS 


Box 2, Chicago. IL 60690 
cost extension 


149.95 


slate abies 


941 program 


29.95 


29.95 


shipping 


fdeess City stale ara np came 


COD (add $1.90) 
TOTAL 





seven to I I letters. When you are ready 
to start, a word will be displayed and a 
time limit set. The player then lists as 
many words with more than four letters 
that can be made from the word the 
computer chose. For example, from the 
word “program,” nine other words can 
be formed: armor, gram, mora, parr, 
prom, ramp, roam, roar and romp. 
Because, according to the documen- 
tation, "the rationale for playing the 
game is to become more proficient in 
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the spelling and use of the English 
language,” and for those of us who do 
not know what a mora or parr is, it is 
highly advised to keep a dictionary 
handy. 

Each player's score is composed of 
two parts. There are points awarded for 
each word correctly formed and points 
are subtracted for incorrect words. 
Bonus points may also be earned by 
completing the game before the compu- 
ter set time limit. To help you keep track 
of your progress the computer will keep 
track of 10 high scores for 15 players. 

The second selection from the main 
menu analyzes a selected word from 
four to 11 letters long. It is recom- 
mended to run Gramarcy on a hard disk 
to increase the speed, but even on a two 
disk system it is fast. To analyze a four- 
letter word it takes two minutes; an 11- 
letter word, five minutes. While it takes 
slightly longer for the computer to 
analyze a word while "playing the 
game,” even then it is quick. Whatever 
method is used to analyze the words, 
apparently it is good. The programmer 
has applied for a patent for it. 

For the professional "word game- 
Gramarcy" player, the third option 
allows the player to modify the data 
bank of words. Words from four to 10 
characters long may be inserted or 
deleted. This allows the perfectionist to 
modify the data bank to his own defin- 
itive source. 

Two words of warning. It is necessary 
to have a printer on at all times. Most 
output is directed to the printer. When 
it is not on, you'll receive no polite 
warnings, and the program simply exits 
to the operating system. Technically, it 
is against the offical rules to form a 
word itself from itself. However, this 
over ambitious word finder does list the 
word itself. In our example it would 
have also listed the word program. 

A handy 1l-page manual accompa- 
nies the program. It explains the differ- 
ent functions of the program and the 
rules it plays by. It is a concise, easy-to- 
understand aid. 

As with other Cheapware products, 
the price is more than right and the 
program works very well. So if you can 
find 15 words in the trademark "gram- 
arcy" then you are ready to meet this 
computer (72 words) challenge (41 
words). 


(Cheapware, 4038 N. Ninth Street, St. 
Louis, MO 63147, $35.) 


— Melanie Bunger 


Hardware 100/200 


The Model 100/200 
Disk Drive is 
Dependable and 
Tough 


Ifthe Model 100 or Tandy 200 needed 
one thing to make them ideal lap com- 
puters, it was a portable disk drive. Now 
they have one. 

In fact, it is hard to say enough for 
the new Tandy Portable Disk Drive. It 
is compact, well built and light, and can 
just fit into a briefcase with the Model 
100 and a small tape recorder. It uses 
micro floppy disks, which are so supe- 
rior to the old style floppies that any 
computer that doesn't use them should 
be considered outmoded. It only gets 
100K on a disk, while micro drives for 
larger computers pack 500K per disk, 
but 100K is plenty for the tiny Model 
100/200. In fact, it is amazing how 
much fits on a disk. 

The drive is both fast and easy to use. 
It works at 9600 Baud, so that 10 
minutes of taped data goes onto a disk 
in a few seconds. The floppy system has 
eight funtions corresponding to the 
eight Model 100/200 function keys. 
These functions are a listing of all files 
on the disk with their byte counts (and 
a byte count of remaining space on the 
disk), a renaming function that lets you 
switch the name on a file on disk, plus 
the usual file load, kill, and save and 
disk backup, and format. F8, as usual, 
brings you back to the menu. 

The drive runs on four Double A 
batteries. One of its few drawbacks is 
that it will not function on rechargea- 
bles. The directions say it will run only 
two hours on a set of batteries. How- 
ever, the drive operates so quickly that 
if you are careful about only turning it 
on when you need to use'it, you can 
spread those two hours out over several 
weeks. It will also run on the same 
model AC converter that your Model 
100/200 uses. 

To use the disk drive, you must first 
load a 3,359 byte machine language 
program, which is saved both in high 
and low memory, creating a 7,000 byte 
overhead. However, once the program 


is loaded into high memory you can 
delete the low memory copy, saving half 
the overhead but removing the program 
from your menu. To access the program 
you then need the following one-line 
BASIC program: "10 CALL 59400” for 
Model 100s or "10 CALL 57500” for 
200s. Save it as FLOPPY . BR. If you need 
to use some other machine language 
program that uses the same high mem- 
ory space as FLOPPY . CD, you can resave 
it into low memory with the command 
in BASIC: SAVEM"FLOPPY .CO^,59400, 
62752 ,59400. If you use. a Model 200, 
the numbers are different. 

Even 3,500 bytes overhead seems like 
a lot for a 32K maximum machine. 
However, the disk drive's effect is to 
reduce overhead on the machine. Be- 
cause it is so easy to load a file, you tend 
to keep everything on disk and only put 
the program or data file you need at the 
moment into your computer. 

The floppy system is not perfect. One 
annoyance is that after each operation 
on disk you have to go back to the 
floppy menu. Thus, if you want to erase 
five files, you have to remove them one 
at a time, going back to the menu and 
choosing F5 (Erase) each time. It would 
be much nicer if you could call up the 
menu of files on the disk, highlight those 
you want to kill and then delete them 
all with one push of F5. It would also 
be nice if you could print files directly 
from disk instead of having to load 
them into the computer first. At least 
one programmer is working on a system 
to do this, but he reports that the floppy 
driver program is not designed to allow 
this to be done. 

Another drawback of the system is 
that it does not allow random access 
inside files stored on disks. Thus, you 
cannot build and work in disks that you 
cannot load completely into your com- 
puter. 

These problems, however, are rela- 
tively unimportant, and they can be 
fixed in future versions of the floppy 
program. The important thing is that 
the new drive is here, it is dependable 
and tough enough to stand up to travel, 
and it is worth every penny of its $200 
price. Still, I wouldn't throw away my 
tape recorder. Tapes are less expensive 
than disks, and are excellent for holding 
file backups. 


(Tandy Corp., One Tandy Center, Fort 
Worth, TX 76102, $200) 


— G. Berton Latamore 
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MEI New Products 


The following products recently have been received 
by PCM, examined by our magazine staff and 
approved for the PCM Seal of Certification, your 
assurance that we have seen the product and have 
ascertained that is what it purports to be. This month 
the Seal of Certification has been issued to: 








LT x 
Due to a typographical error in the 
January issue of PCM (Page 93), 
the wrong price was given for The 
Banner Machine from Cardinal 
Software. The Banner Machine 
retails for $149.95. We regret any 
inconvenience caused by this error. 





10 Base, database management 
system designed for use with Fox 
Research's /0 Net local area net- 
work. Requires Tandy 1000, 1200 
or 3000. Fox Research, Inc., 7005 
Corporate Way, Dayton, OH 
45459, (513) 433-2238, $495. 


10 Net, local area networking soft- 
ware and hardware. Based on 
Ethernet. One package required 
for each computer in the network. 
Requires Tandy 1000, 1200 or 
3000. Fox Research, Inc., 7005 
Corporate Way, Dayton, OH 
45459, (513) 433-2238, $695. 


BDL.Celebrate, helps you keep 
track of special events such as 
hirthdays, anniversaries and holi- 
days. Program stores names and 
addresses and will print mailing 
labels. Requires Tandy 1000, 1200 
or 3000. BDL Homeware, 2509 
North Campbell Avenue, #328, 
Tucson, AZ 85719, (602) 577- 
1435, $34.95. 





BDL.Grow, medical records sys- 
tem for children. The software 
consists of four sections: Birth, 
Growth, Immunization and Doc- 
tor Name and Address. Requires 
Tandy 1000, 1200 or 3000. BDZ 
Homeware, 2509 North Campbell 
Avenue, #328, Tucson, AZ 85719, 
(602) 577-1435, $39.95. 


BDL.Health, maintains family 
health history and medical re- 
cords. Reports may be generated 
by family member in chronologi- 
cal order. Requires Tandy 1000, 
1200 or 3000. BDL Homeware, 
2509 North Campbell Avenue, 
#328, Tucson, AZ 85719, (602) 
577-1435, $39.95. 


BDL.Roast, aids in the prepara- 
tion of meat. Calculates cooking 
times and temperatures based on 
meat type and weight. Requires 
Tandy 1000, 1200 or 3000. BDL 
Homeware, 2509 North Campbell 











Avenue, #328, Tucson, AZ 85719, 
(602) 577-1435, $24.95. 


EZTax-PLAN PRO, tax planning 
spreadsheet templates for use with 
Lotus 1-2-3. Templates also in- 
cluded for the new “Treasury II” 
tax simplification proposal. Re- 
quires Tandy 1000, 1200, 2000 or 
3000 with Lotus 1-2-3. EZWare 
Corporation, P.O. Box 620, 29 
Bala Avenue, Suite 206, Bala Cyn- 
wyd, PA 19004, (215) 667-4064, 
$295, plus $3 S/H. 


Harvey ProDisk Control, allows 
you to create custom pop-up 
menus for controlling DOS and 
applications programs. Requires 
Tandy 1000, 1200 or 3000. Har- 
vev, BHC Corporation, P.O. Box 
1863, Cape Coral, FL 33910, (813) 
482-8600, $90. 





Play Writer Mystery!, software, 
paper and binding for making 
your own personalized book. A 
creative writing tool that reinfor- 
ces reading, spelling, grammar and 
vocabulary skills. Requires Tandy 
1000, 1200 or 3000. Woodbury, 
127 White Oak Lane, CN1001, 
Old Bridge, NJ 08857, (201) 679- 
0200, $39.95. 


PROBALOTO, a program for 
picking lottery numbers. Requires 
Tandy 1000, 1200 or 3000. Gary 
Olander, 322 Haymarket Place, 
Gahanna, OH 43230, (614) 475- 
3315, $29.95. 


SuperBatch, an enhanced batch 
command processing utility that 
automatically executes DOS com- 
mands and passes parameters to 
applications programs. Requires 
Tandy 1000, 1200 or 3000. Merrill 
Street Software, 251 Merrill 
Street, Birmingham, MI 48011, 
(313) 645-5280, $79.95. 


Turbo Editor Toolbox, program- 
ming tools for developing custom- 
ized full-screen editors for stand- 
alone use or for use in Turbo PAS- 
CAL programs. Requires Tandy 
1000, 1200 or 3000 and Turbo 
PASCAL. Borland International, 
4585 Scotts Valley Drive, Scotts 
Valley, CA 95066, (408) 438-8400, 
$69.95. 














By awarding a Seal, the magazine certifies the 
program does exist, but this does not constitute any 
guarantee of satisfaction. As soon as possible, these 

hardware or software items will be forwarded to 
PCM’s reviewers for evaluation. 
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HARDWARE SPECIALS 


CALL 
CALL 
$ CALL 
CALL 


Tandy 600 

Tandy 3000 

25-1000 Tandy 1000 2-drive 
Tandy 1000 10MB Hd 
26-3802 Model 100 24K $ 449.95 
26-3860 Model 200 $ 749.95 
26-3816P 8K Upgrade Model 100$ 39.95 
26-3127 64K Extended Coco 2 $ 149.95 
26-3131 Coco Drive $ 189.95 
26-3124 Multi-Pac Interface $ 89.95 
Video Monitor Adapters $ 34.95 
Botek Ser/Par Interface $ 69.95 
Extended Basic w/bk $ 39.95 
64K (DEI) Memory upg $ 39.95 
HJL Keyboard (D.E.F.2) $ 79.95 
26-1276 DMP-105 Printer 80cps CALL 
26-1278 DWP 220 Printer CALL 


MSI SOFTWARE 


MSI DISKUTIL NEW 
COLOR FINANCE II NEW 
MSI NAMEFILE 

MSI CALENDAR NEW 
MSI COLOR PAYROLL NEW 
COLOR FINANCE 4 


$5522: 
555555 


TRS-80 Trademark Tandy Corporation 
Prices subject to change without notice 
Write for our FREE newsletter 


DELKER 
— HEGTRONIGS 


H 800-251-5008 


H 800-545-2502 
(Tennessee) 


E 
z 





| 


ACCESSORIES 


Volksmodem 1200 
Novation J-Cat Modem 
USR Password 300 
Hayes SM 300 Modem 
USR Password 1200 
USR Password 2400 
CoCo Switcher 
Elephant Disks ssdd 
26-3030 OS-9(64K) 
Basic-09(req. OS-9) 
"C" Compiler (OS-9) 
FHL O-Pak (req. OS-9) 
Eite Word 

Eite Calc 

Color Term Plus 
26-3012 Deluxe Joystick 
Tandy 1000 options 


NEW! 26-3128 64K 
Direct Video CoCo2 





$229.95 
$129.95 
$179.95 
$239.95 
$399.95 
$599.95 

$ 39.95 

$ 18.95 

$ 64.95(disk) 
$ 87.95(disk) 
$ 87.95(disk) 
$ 34.95(disk) 
$ 59.95(d&c) 
$ 59.95(d&c) 
$ 29.95(cass) 
$ 24.95 
CALL 


NEW! Dual Double Sides Drives including 
case, power supply & cable 


$309.95 


$219.95 


Call for prices and availability of 
your favorite software and 
hardware. All advertised items 
subject to availability. Prices do 
7 not include shipping and handling. All 
of the above units are covered by our 


120 day carry-in warranty 


DELKER ELECTRONICS, INC. 
P.0. Box 897 408 C Nissan Blvd. 


Smyrna, TN 37167 


H 615-459-2636 


(Tennessee) 


615-254-0088 
(Nashville) 


Visa, Mastercard and American Express 
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Using BAREA D 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it's 
ready for you to scan a line. 
After a line has been success- 
fully read, you'll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 


the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 


Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 
the .DO text file to a normal 
BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LORD^TEST 
.DO” (if the program name 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC'S com- 
pressed format (.BA exten- 
sion), you'd type SAVE”TEST” 
(if the program were named 
TEST). You may then kill the 
-DO file with KILL ”TEST.DO”. 









 BAREAD 2.1. 









99g toe Initialize HRM 
/1919 ON ERROR GOTO 1949 
1029 CLEAR 1999: MAXFILES=2 - 
193% GOTO 1959 
1949 IF ERR=5 ‘THEN: RESUME NEXT 
1959 ON ERROR GOTO Ø i 
11069: RUNM "B30F9" Hi 
19079. OPEN "WAND: " FOR INPUT AS ÆL 
1989 UC$--1l 










UVNXYZabedefghijklmnopgrstuvwxyZ- Sp 
1109. DIM RWS$(36) 







112Ø ERS(2)-"You've SKIPPED å linet" 

1139 ERS (3)="You' ve: ALREADY SCANNED this 
line!" 

1149 ER$(4)="Code not PCM2/39 format!" 
1159 ER$(5)="Command not applicable here 


yv 


1169: ER$(6)="You cannot skip: this line!" 








computer tl 
118Ø '*** Read Reserved Words List *** 
1199 DATA BBEP,CLEAR, CLOSE, DATA, DEFDBL, D 
EFINT; DERRO, DEFSTR, ELSE, GOSUB, COTO: 















$(;; LINE(, LOADM, LPRINT, USING, MAXFILES: 






SET C; PRINT, READ, RESTORE; RETURN, RIGHTS ( | 
1220 DATA SOUND, SPACES (., STRINGS (., THEN 








1249 ' *** Procedure Begins Here RAK 
1250 CLS: PRINT@44, "PCM Bar Code: Program 
Reader v2.1" 






(217,16), 1,B 
1279 NN$-1 





‘GOTO 1289 







1 pra-5:GOSUB 162Ø: GOTO 1289 | 
1399 IF LLs=Ø THEN ON INSIR(" ALSR",ILS). 
GOTO 1829,1899,1989,2059. 
| 1319 IF LLs-1295 THEN 1359 











| SUB 16290:COTO 1289 


135 Te lgd 


5103379: CL$-CL$41LS | 
(11389 FOR I$-1 TO LEN(CL$ 


(041g 


UTR. cH$en/" 

($ THEN. 1479 ELSE Goro. 144g ` 
1429 TP m H RN UCA-NOT 
0 1459 - i 

1439. 


IF. 
(18413) THEN PRINT&2, dus XX$e""o 


1999 PC$-"90123456789ABCDEFGHIJKLMNOPQRST | | inn 
/1479 PRINTQ29U, pum 


1119 ERS(1)="You must scan line 1 first! gØ: 


fi 1499 i dee Done dk 
ENU '' 
jt NL 


1170 ER$(7)="Selected resume file not in 111540 RETURN 


1559. x ud Hex and Hot 


"UCL$e"/":GOTO 1619. 
14579 1%-IS+1:1F TNSTRU 
1) )>Ø THEN CHS=MID$ (CLS, tay 


1200. DATA INKEY$ , INPUT, INSTR(,LCOPY, LEFT | 
1210 DATA MIDS ( , NEXT, PEEK, POKE, POWER, PRE | 


“1599 HXS=MID$ (CLS, I8; 2):CH$- HRS INSTI 
1239 FOR: qe-1' TO 36:READ RWS$(I&): NEXT I$ 


i, 
| 169g ete HEURE 
(1619 RETURN ^ 0 inni 
(1629 ' we Error Codes * Å HH i 
“1639 SOUND: 599g, 19: pM 8096 19: SOUND. 5 
128Ø GOSUB 166Ø:1F ER%>Ø THEN GOSUB | 1629 (099,19. HHEH | 
(01689. FRINT@229- SYLENCERS (ERE) 
1299 IF LL$=Ø AND INSTR("YN"; 11$)59 THEN (0 | 
| 165 RETURN | 
NGG Rhee: Get Code Line 
001679. PRINT@173, Reet 
ile) Hen NNS: H 


1260 LINE(2Ø,4)-(219,18),1,B: LINE(22, 6)-. 


1329 IF LLS@NN% AND NN&-I THEN ERS=1: co can à 
adi GoTo. 1799 p i i 









UB 1629:GOTO 1289 | 





1360 IF LLs=1 AND NN$>Ø THE 










ial CHS=MID$ (CL$, 1%, dj 


IF CH$="8" THEN  GOSUB. on TF ONL | 

















1449. 





1459 NEXT I8 | 
1469 CL8-"". 









1488 TF LLa«»1295 THEN Rie: e] 









1599 CLOSE: CALL. 619071 CLEAR fi HIMEM: M 











1519 ' 


i IF) TALEN CEIST ii "Bie em | 












1589 IF I8>LEN(OL$)-1 THEN un 
GHTS (CLS, 2) GOTO 1619 ^ | 





59123456 /89ABCDEF" | LEFTS (HKS, 1)) -1) 1641 ` 
SER MEAS TNAM RA METATA Si) ped 

























1689 IF NN$--l THEN PR 






February 1986 PCM 127 


1699 SOUND 5ØØ,5 

17ØØ INPUT#1,TL$:ER%=Ø 

1719 FOR I$-1 TO LEN(IL$) 
51729 IF MIDS(IL$,1%,1)="1" THEN MIDS(IL$ 
H 14%, T=” um 

173% NEXT I$ 

1749 IF LEN(IL$)<>1 AND LEN(IL$)«221 THE 
UN ER$=4 : RETURN 

1759 IF LEN(IL$)-1 THEN LL$=Ø:RETURN 
1769 LL$=LEFTS(ILS$,2) :LL$=(INSTR("Ø12345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ" , LEFTS$ (LL 
$,1))-1)*36+INSTR("Ø123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ" ,RIGHTS(LL$,1))-1 

177Ø RETURN 

1789 ' *** Open Program File *** 

179% PNS-LEFTS(IL$,6):ILS-RIGHT$(ILS,LEN 
(IL$)-6) 

1899 OPEN PN$ FOR OUTPUT AS #2 

181% RETURN 

1820 ' *** Abort nr 
1839 BEEP:BEEP:BEEP 
184g PRINTQ2Ø9, "ABORT! 
1850 INPUT£&l,AN$ 

1869 IF INSTR("YN",AN$)=Ø THEN BEEP:PRIN 
T@251,"Sean "YES" or 'NO'":GOTO 1859 
1879. PRINTQ2ØØ, SPACES (89) ; 

1889 IF AN$="Y" THEN CLOSE:KILL PN$-".DO 
":GOTO 1499 ELSE GOTO 1289 

1890 ' *** Skip Line *** 

1999 IF NN$-1 THEN ER$-6:GOSUB 162Ø:GOTO 

1289 

191Ø BEEP: BEEP: BEEP 


Are you sure?" 


CHILL (FROM PAGE 36) 


0 AN LUM 
2. MEAN AARAU M 
JA 0 
S JA DO 
e AA 0 ELM 
a U O a A I 
AA DM 
AA 


1.0 AA LM 
FA 
12 FA LUAM 
JA 0 LM 


128 PCM February 1986 


Are you sure?!" 


1920 PRINIGQ210; "SKIP! 
1939 INPUT£Z1,AN$ 
1949 IF INSTR("YN",AN$)=Ø THEN BEEP: PRIN 
TQA251, "Scan "YES! or 'NO'':GOTO 1939 
1959 PRINT@299 , SPACES (89) ; 

1969 IF ANS$-"Y" THEN NN%=NN%3+L 

197% ‘GOTO: 1289 

1989 ' *** Stop & Save *** 

1999 BEEP:BEEP:BEEP 

29909 PRINTQ297,"STOP & SAVE! Are OM sur | 
eg": 

2019 INPUTHL,ANS 

2929 IF INSTR("YN",AN$)=Ø THEN BEEP: PRIN 
TQ251,"Scan "YES" or 'NO'":GOTO 2Ø1Ø 
2039: PRINTQ200 , SPACES (80) ; 

2949 IF AN$="Y" THEN 1499 ELSE GOTO 1289 
2059 ' *** Resume *** i 
2060 IF NN3<>1 THEN esti GOSUB sini GOT 
0 1289 
2079 PRINTQ254, "Resume Mode"; 

2089 NN$-1:GOSUB 1669 | 
2999 IF LL$-9 THEN ER$=5 ELSE IF LL$<>1 
THEN ER%=1 

21ØØ IF ER%>Ø THEN GOSUB 1620:GOTO 2060 
2119 PN$-MIDS$(IL$,3,6) 
2120 ON ERROR GOTO 2149 

2139 OPEN PN$ FOR INPUT AS #2: GOTO. 2179 
2140 RESUME 2159 

2150 CLOSE #2 | 

2160 ER$=7:GOSUB 162Ø:GOTO 1279 

217Ø CLOSE *2:0PEN PN$ FOR APPEND AS #2 
2189 NN%=-1:GOTO 1289 





24 FN 0 
15 0 ME 
2.6 MUNN r ÐI 
17 JO 
EE U T N E 
15 N A I L U I D D 
20 I DT N 
21. JO LM 
22. UMANE M 
23: JKA TLO 
2« AN AR 
2s JA LU M 
2 JG 
22. JO UM 
28 JA IAM 
25. MOI MA RL AN 
se JA 0 000 





LOADER (FROM PAGE 78) 


AD LM 
2. 0 M 
JAN 
A II 
s AO. 
A ANUAL LM 
AO M 
s AA 
x. ONI ðr IM 
x2. MANUALE NE UM 
1:2. AA 
e A D UAM 
«4. JO AEU NAM 
15 JONO IM 
26 TL AA M 
17 QUAIN OPEM 
ER ORO LE M 
x. T DU AM 
20 JR TEAM 
21. JO NAM 
eea N UM 
23 JV a L L LL L 
2 JA NL AAA 
25 JAN 
26 JA 0 
27. JAN AM 
28 JA UAM 
25. JG NM 
3 NN AG 
32 na M 
s 
33 nn DAL 
3 TANOAN AUO O ONON T 
35 JD IM 
se ANA nn 
37 NG NAM 
SEÐIL 
sE 00000000 A 


VA VAN UNA 


Abort Skip Line Stop & Save 


VAA LLL VA 


Resume Yes No 


«o. NA 
VA UEM 
AVL 
43 VA NN 
ae VAN k I 
s JANS TA I I A 
AN T E 
T LEAD LM 
ae UAI LUN 
5. AA M 
se VAA 
SSI 
2 AA 
3 00 E E 
s VA MON I N N 
ss AA. 
s AA AA aA NOE DO 
7 NNM 
se DA DN AA IM 
s VA 0 
se DKK M UM 
e. VANG GOOG AG AM 


HEX.DO (FROM PAGE 78) 


nO AMAN 
2. NM 
3: JEANNE AAA AAA 
AG 
stk A AULA 
e QNIN URN ALIM 
2. NO I 
OA 
I 
se JO UEM 
La MUODON ONUN AO I T 
2.2 JG A 
13. (MINICOM 
24 JO 
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MEI The Rackseller 
ALABAMA 














/ Scottsburg Radio Shack of Scottsburg OHIO 
ii bi penn esker Å IOWA Cincinnati Cinsoft 
n News Co. Å 
Madison Madison Books Bi Myers TV & Stereo Repair ses Orab oo Orab Radio Shack 
ARKANSAS Wichita Lloyd's Radio ka 
Fayetville Vaughn Electronics/Radio Shack KENTUCKY Oklahoma 
ARIZONA Louisville T — City Merit Computers 
Phoenix Computer Pro Prospect Pet e a EN OREGON 
Tri-Tek Tw Portland Fiffh Avenue News 
Tucson Anderson News Co. oo PENNSYLVANIA 
CALIFORNIA a poem Picdebno Newsy 
Citrus Heights Software Plus Phoenixville Stevens' Radio Shack 
Half Moon Bay  Strawflower Electronics MASSACHUSETIS RHODE ISLAND 
Livermore Software Galeria Littleton Computer Plus Newport Kelly's Varlety 
North Marlboro Radio Shack TENNESSEE 
Hollywood Levity Distributors MICHIGAN Knoxville Anderson News Co. 
Santa Rosa Sawyer's News Petosky B & L Sound, Inc. Memphis Computer Center 
Sunnyvale Computer Literacy Rochester Rochester Book Center Nashville Mosko's Book Store 
COLORADO Sterling Heights ae City Smyrna Delker Electronics, Inc. 
Salida Radio Shack rograms, Inc. TEXAS 
DELAWARE Wyoming Geny's Book Co. Bay City Impulse Computers 
Middletown Delmar Co. MISSOURI Ft. Worth A & A International 
Wilmington Normar Inc.—The Smoke Shop Independence Digital Enterprises, Inc. VIRGINIA 
FLORIDA St. Louis Software Center Alexandria Alonso Book & Period 
Boca Raton Software, Software, Inc. NEBRASKA Norfolk I-O Computer 
Ft. Lauderdale Software Connection Lincoln Hobby Town Wytheville Wytheville Electronics 
N, Miami NEW HAMPSHIRE WASHINGTON 
Beach Almor Bookstore West Lebanon _ Verham News Corp. Kennewick Satellite TV Specialists 
Orlando Book Mania NEW JERSEY Mt. Lake 
Panama City Computer Systems Group Clinton Micro World II Terrace Emerald Computer 
Pensacola Anderson News Co. Hackensack ^ Total Circulation Service WISCONSIN 
Tallahassee ^ Anderson News Co. Pennsville Dave's Electronic Radio Shack FLAG Electronics, Etc. 
GEORGIA * NEW MEXICO Madison 20th Century Books 
Atlanta Guild News Agency Alamogardo New Horizons Computer Systems ARGENTINA 
ILLINOIS Albuquerque News and Bookstore Cordoba Informatica Y Telecomunicaciones 
Chicago Chas. Levy Distr. Page One Newsstand CANADA: 
Kroch's & Brentano's NEW ALBERTA 
Jackson Street YORK 
KERES renine Hudson Falls, G.A West & Co. EG 
Wabash Ave. NORTH CAROLINA Kelly Software Distributors 
Prairie News Agency Cary News Center in Cary Village BRITISH COLUMBIA 
Oakbrook Kroch's & Brentano's Sylva Total Data Systems Sidney Sidney Electronics 
INDIANA NORTH DAKOTA QUEBEC 
Highland Computer Health Consultants Fargo Computer Associates LaSalle Messageries De Presse Benjamin 
1 NOVA SCOTIA 
Also available at selected B.Dalton Bookseller stores Halifax Atlantic News 
Advertisers Ind TAB CO. 10 
ex TAB CO. 110 
TLM SYSTEMS. 65 
TRUE DATA 77 
ALPS 117 WIZARD 110 
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COMPUTER PLUS III Dead 
DEW COMPUTER CENTBR...————— M perti 8 39 
DELKER ELECTRONICS.  .-.— a aei cii Me 


ENVISION DESIGNS — — ——— ee a es eai toes Ø 


FEDERAL HILL: SOFTWARE .— — — —— ————É É— É— —58 
FORT WORTH COMPUTERS  — —— E Gs, 2" 
GROUP TECHNOLOGY, LTD. 120 
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BOWSRDMEDIGAD ee eet ees SS SS 193 
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MARRDAD. —  — a 
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MICRODEX.——— ———— — — du La ini JÅ 
MIN SOP ING -ra 
NOCONABLECIRONICS..— — — — —— ————— Á— —— —JÀ 
OWISSERVICER. ——————————————— D Í 
PCM BACK ISSUES. et isque] aÅ 


PCM ON DISK: —————— oe ee. 
PERRY COMPUTERS zemi 
PERSONAL INTERATED COMPUTER — —— — Á— —————— Ü 
PORTABLE COMPUTER SUPPORT GROUP __________37, 41, 69, 79, BC 
DR PREBLES PROGRAMS. AL ÉL EO 
PURPLE COMPUTING: mr esegue ne EAD 
QOUAILCANYONSYSTEMS.—— Ill... ee 
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SOFTWARE SUPPORT unter geir ee 
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Director, West Coast Office 
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Advertising Representative 
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YES, i'm coming to Palo Alto! | want to save by buying tickets now at the special advance sale price. 


Please send me: 
three-day tickets at $9 each 
one-day tickets at $7 each 
(Circle one) Friday Saturday 
Saturday Breakfast at $12 each 


Handling Charge $1 


total 
total 
Sunday 
total 


(U.S. Currency Only, Please) 
L] Also send me a hotel reservation card for the Hyatt 


Hotels-Palo Alto ($71, single or double room). 


Make checks payable to: PCM. Mail to: PCMfest, The Falsoft Bu 


by phone, call: (502) 228-4492. 


Advance ticket deadline: Feb. 7, 1986. Orders received less than two wee 
will also be available at the door at a slightly higher price. Children under four, 


VN KY X we X X X X X A 


ADANA gl TERRE 





| da EP dA cu dc NE r Æ 





TOTAL ENCLOSED _____. 





XD 


Name 
Address 
City 
Telephone 
Company 
O Payment enclosed, OR UO Charge to: 

O VISA O MasterCard O American Express 


Account Number 

Exp. Date 

Signature — —— ———————— 
ilding, P.O. Box 385, Prospect, KY 40059. To make reservations 


State 
ZI? — — 


ks prior to show opening will be held for you at the door. Tickets 
free; four and over, full admission price. 


SLETTER 


_ All on one ROM. Truly the finest four programs - 
| available for the Model 100 — guaranteed. 
Try it for 30 days. If you aren't blown away by: the 
. excellence return it for a full refund. 


The four best programs PERMI Model i 


100 all on one ROM. 32K of power with- 


out using any RAM for, program stor- | + 


age. This: is*the PCSG > Snap-Ih ROM 
thát- just presses easily: into the little 


ROM socket in the compartment on the 


back. You access the four right na the 
main menu like built-ins. 


Write ROM: — the definitive ud 
processor for the’ Model 100. Function. 


` key formatting or dot commands. 


Search and réplace. Library feature — 


inserts words, phrases or wholé docu- 
ments into text from just a code; MAP 
lets you'see a picture of your document. 


In all there are 60. features and fünc- 


tions, Noone can claim faster operation, 


|’ FORM lets you create interactive forms 

| with on-scréén prompts that you can. 
answer from the keyboard. Nothing else | 
for the Model 100 ‘compares with the . 


features of Write ROM. Exactly the 


| same asthe Write ROM sold'as'a single © 
program. Infoworld says it “makes the - 
. Sur. 


Model-100:a viable diii A. 


passed Our highest expectations for | 


‘quality and clarity.” 

Lucid Spreadsheet: This is the’ one 
PICO: magazine’ says “blows. Multiplan 
right out of the: socket” and Infoworld 
performance rated as “excellent” and 
said “makes the Model 100 compute.” 


Gives you features you cannot get with | 


Lotus 123: Lets you build spreadsheets 
in your Model 100 that: would consume 
140-150K on a desktop. Program gener- 
' ating capability with no programming 
knowledge required. . Variable column 
widths. Includes find and sort with func- 
tion key control: It's fast, recalculates 
"like lightning, No feature has been taken 
from'the original, only mew ones added. 


Database: This is a) relational data. 
«base like no. other. + You can do every- 


‘thing from mailing lists to invoices. No 


complicated pseudo-coding, you ‘create’ | 
input screens as simply as typing into . 


TEXT: You are not limited by size; you 
can have ås large an input screen as you 
wish.- Prints out reports or forms, get- 


ting: information from ås any files as" 


(214) 3510564. 


‘youlike. Complete math between fields; 


Total. interface with Lucid worksheets. 7 
! Qutliner: Does everything that Think- | 
tank does ona PC buta whole lot better. | 
Includes å Sort for your headlines. Lets : | 

you have headlines of up to 240 charac- ` 


"ters. Has cloning, hoisting and sideways 


scroll up to 250 characters. Like Lucid, 
this ne Sets a new standard for outlin- : |! 
ers. This is the way to plan and organize 
your projects. ` | 

Present Lucid’ and Write ROM 
owners can upgrade for $100; If you 
have both it’s $75. # | 

As usual PCSG sells the Super ROM | 
on a thirty day guarantee. If for any 
reason you are not satisfied, simply 
return it for a full refund. 

We are excited. about this: product. 
Super ROM gives the Model 100 the 
true power ofa desktop. Noother multis | 


. program ROM has software that com- | 


pares. But don't take our word forit. We | 


. invite. you to make that comparison 


yourself. Priced at’ $199. 9 on Snap-In | 
«ROM. 


131 Stuck with somebody ‘elses malt ROM: ? 
Weil upgrade it for $100. 


PORTABLE COMPUTER Wren ORG P 


11035 die Hines Blvd., #206 


, Dallas, TX 19229 


MC, Visa, iere 25 G k, or C.O.D. ` 





